merge strings - #120474 (Allgemeines zu Perl)

Gast wer

2009-04-10 07:41

$a bitte nicht so einfach verwenden ist eine vordefinierte Variable für sort (genauso wie $b)

zudem würde ich es etwas anders schreiben:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

my $s1 = 'abcdef';
my $s2 = 'efghijk';

my $s = $s1 . $s2;
my $m = "";

while(length($s) > 0){
  my $z=substr($s, 0, 1, '');
  if($m !~ m/\Q$z\E/){
    $m .= $z:
  }
}

print "$m\n";