Lese aus einer csv so ein ...
open(INSERAT, "<../members/$_/anzeigen.dat");
flock(INSERAT, LOCK_SH);
while(<INSERAT>)
{
$_ =~ s/[\n]//g; $_ =~ s/<br>/ /gi; push ( @all, $_ );
}
flock(INSERAT, LOCK_UN); close(INSERAT);
Lese aus einer csv so ein ...
open(INSERAT, "<../members/$_/anzeigen.dat");
flock(INSERAT, LOCK_SH);
while(<INSERAT>)
{
$_ =~ s/[\n]//g; $_ =~ s/<br>/ /gi; push ( @all, $_ );
}
flock(INSERAT, LOCK_UN); close(INSERAT);