Community  »  Perl: Allgemeines Forum

leerzeile einfügen	Seitenanfang
Hi all, ich habe zwei Listen. Eine mit 2000 Zeilen und eine mit 1000 zeilen. Die 1000 sind alle in den 2000 enthalten. Jetzt brauche ich eine Liste in der eine Leerzeile eingefügt wird wenn kein Treffer ist. also meine liste: 1 1 2 3 3 6 4 5 6 die Liste soll am ende so aussehen 1 1 2 3 3 4 5 6 6 sortieren ist kein thema aber wie bekomme ich die leerzeile da rein? hoffe mal hier auf hilfe ;-) lg cheery Datum: 10.11.2008-19:16
re: leerzeile einfügen	Seitenanfang
#!/usr/bin/perl my @numbers; open(FH, "<list1.txt"); # Datei zum Lesen öffnen while(<FH>) { push(@numbers, split(/ /, $_)); # Datei lesen und Einträge splitten } close(FH); chomp(@numbers); # Newline entfernen @numbers = sort{$a<=>$b}(@numbers); # Sotieren for(my $i = 0; $i < (@numbers); $i++) { @numbers[$i] .= " "; # Leerzeichen einfügen if(($i > 0) and (@numbers[$i] > @numbers[($i-1)])) { @numbers[($i-1)] =~ s/ /\n/; # Bei Bedarf Newline wieder mit einfügen. } } foreach(@numbers) { print "$_" }; Datum: 11.11.2008-19:55