Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Po dve linije u jednu...:)

[es] :: Perl :: Po dve linije u jednu...:)

[ Pregleda: 3289 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

vaske555
Milan Vasic
Stari Zednik

Član broj: 42246
Poruke: 79
212.200.52.*

ICQ: 287637844
Sajt: www.milanvasic.com


Profil

icon Po dve linije u jednu...:)08.03.2007. u 09:13 - pre 207 meseci
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.
Vaske
 
Odgovor na temu

vaske555
Milan Vasic
Stari Zednik

Član broj: 42246
Poruke: 79
212.200.52.*

ICQ: 287637844
Sajt: www.milanvasic.com


Profil

icon Re: Po dve linije u jednu...:)08.03.2007. u 09:29 - pre 207 meseci
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
 
Odgovor na temu

[es] :: Perl :: Po dve linije u jednu...:)

[ Pregleda: 3289 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.