[ vaske555 @ 08.03.2007. 09:13 ] @
Pocetnik sam u perlu...pa mi treba scripta koja radi sledeci posao.. imam txt file iz kojega treba sve procitati i prepisati u novi stim sto svaka dva reda printujem u jedan. I to prvi i drugi postaju zajedno prvi, treci i cetvrti postaju drugi i tako dalje...

Hvala unapred.
[ vaske555 @ 08.03.2007. 09:29 ] @
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]