letzten Zeilen im Array wiederholen - #64796 (Allgemeines zu Perl)

Taulmarill

2006-04-13 15:56

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

wenn wir uns dein programm anschauen, dann sehen wir, dass du im endeffekt nach der for-schleife die letzte zeile, die in der variable $set drin steht, noch 9 mal an $set anhängen musst, um zu dem von dir gewünschten ergebniss zu kommen. das führt mich zu folgender lösung:

Code: (dl )

my $last = ( split /\n/, $set )[-1];
$set .= ( $last . "\n" ) x 9;
$set .= $_ . "\n" for (@fallend);
$set .= "\n\n";
return $set;

ich hoffe der ansatz ist klar.

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B