Code:
#!/usr/bin/perl
open (IN, "file.txt");
@linije = <IN>;
chomp(@linije);
close(IN);
open(OUT,">file.txt");
$i=0;
$linija =~ s/^[^n]*//;
foreach $linija (@linije) {
print OUT "@linije[$i]\t\t::\t\t@linije[$i+1]\n";
$i=$i+2;
}
Evo ovo radi posao, sam sam provalio...
ako nekom zatreba ima gotovu skriptu...
[Ovu poruku je menjao vaske555 dana 04.04.2007. u 09:13 GMT+1]
Vaske
Po dve linije u jednu...:)
