come potrei passargli l'hash?

[Claudio Vituzzi]

  open(LEGGI,"<lista.txt") || die "Error: (read_lista_txt) lista.txt\n$!";
   flock(LEGGI,1);
    while(<LEGGI>)
    {
     ($news_id,$news_title,$news_status) = split(/\|/, $_);
     $lista_txt{$news_id} = [ $news_title,$news_status ];
    }
   flock(LEGGI,8);
  close(LEGGI);

delete $lista_txt{$id}

  open(SCRIVI,"+< lista.txt") || die "Error: (write_lista_txt) lista.txt\n$!";
   flock(SCRIVI,2);
    seek(SCRIVI,0,0); truncate(SCRIVI,0);
     foreach (sort (keys %lista_txt) )
     {
      $riga = $_ . '|' . $lista_txt{$_}[0] . '|' . $lista_txt{$_}[1] . '|';
      print SCRIVI "$riga\n";
     }
   flock(SCRIVI,8);
  close(SCRIVI);

se volessi mettere la parte dopo delete in una sub come potrei passargli l'hash? direttamente o in riferimento? (potreste farmi un esempio pratico?

Grazie...

[shishii]

Meglio per riferimento:

delete $lista_txt{$id}

&funzione(\%lista_txt);

sub funzione {
my $lista_txt = shift;
print $lista_txt->{'una chiave'};

}

[Claudio Vituzzi]

quindi per fare il foreach dovrei fare cosi':

foreach (sort (keys $%lista_txt) )
     {
      $riga = $_ . '|' . $lista_txt{$_}[0] . '|' . $lista_txt{$_}[1] . '|';
      print SCRIVI "$riga\n";
     }

vero?

[Claudio Vituzzi]

Riposto il codice cosi' gli date una controllatina:

%lista_txt = &read_lista_txt();
delete $lista_txt{$id};
&write_lista_txt(\%lista_txt);

sub read_lista_txt {

  my ($news_id,$news_title,$news_status,$riga);
  my %lista_txt;

  open(LEGGI,"<lista.txt") || die "Error: (read_lista_txt) lista.txt\n$!";
   flock(LEGGI,1);
    while(<LEGGI>)
    {
     ($news_id,$news_title,$news_status) = split(/\|/, $_);
     $lista_txt{$news_id} = [ $news_title,$news_status ];
    }
   flock(LEGGI,8);
  close(LEGGI);
  
  return %lista_txt;

}

sub write_lista_txt {

  my $lista_txt = shift; 
  my $riga;

  open(SCRIVI,"+< lista.txt") || die "Error: (write_lista_txt) lista.txt\n$!";
   flock(SCRIVI,2);
    seek(SCRIVI,0,0); truncate(SCRIVI,0);
     foreach (sort (keys $%lista_txt) )
     {
      $riga = $_ . '|' . $lista_txt{$_}[0] . '|' . $lista_txt{$_}[1] . '|';
      print SCRIVI "$riga\n";
     }
   flock(SCRIVI,8);
  close(SCRIVI);

}

[shishii]

mi pare che sia %{$lista_txt}