Registracija

Po dve linije u jednu...:)

Odgovori Nova tema

1 odgovor
4.290 pregleda

Po dve linije u jednu...:) 08.03.2007. u 10:13 · pre 239 meseci #1

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.

Potpis

Vaske

Re: Po dve linije u jednu...:) 08.03.2007. u 10:29 · pre 239 meseci #2

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...

Potpis

Vaske

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme