Perlben szövegfeldolgozás

Ha nagyon nagy a file, azt nem szabad egyből memóriába tenni tömbként, mert kifekszik az egész. Rá kell cat-olni egy script-re, ami soronként feldolgozza.
Pl. ez a program minden sor elejére tesz egy sorszámot, a végére meg odaírja, "hogy Hurrá!":

#!/usr/bin/perl
$i =0;
foreach(<>) # iterálunk stdin sorain
{
  $i++;
  chomp; # sorvégi enter leszedése
  print "$i $_ Hurrá!\n"; # $_ változóban van a sor
}

Modjuk nem próbáltam ki, lehet benne hiba.

Azt az XML dolgot ugye nem mondtad komolyan?

man perlfunc, keresd meg a 'split' nevű függvényt, egy regexp szerint vágja a stringet, az eredményt tömbbe teszi.

http://search.cpan.org/search?query=xml&mode=all <- innen tudod kivalasztani a neked megfelelo xml modult.

zsolt

Itt van egy kicsit eggyügyű példa az /etc/passwd file olvasására,
a profik biztosan meg tudnák oldani egy sorban is:

#!/usr/bin/perl -w
my $username = $ENV{'LOGNAME'};                               
my $emailname = "";                                           
                                                              
open (PWDFILE, "/etc/passwd") or die "Error opening file: $!";
while (< PWDFILE >) {                                           
  my @fields = split(":", $_);                                
  if ($fields[0] eq $username) {                              
    my @namefld = split(",",$fields[4]);                      
    if ($#namefld > -1) {$emailname = $namefld[0];}           
    else {$emailname = $username;}                            
  }                                                           
}                                                             
close(PWDFILE) or die "Error closing PWD file: $!";           

ELaci