> I need to find every ocuring "... blok in a text,
> even If this ocurs multiple times on 1 line.
If you're doing HTML it's worth looking HTML::TokeParser for a quick and
easy and generally reliable means of extracting the contents of the
'bold' element: great POD, too -- this is a slightly
At 11:43 25.06.2001 +0200, [EMAIL PROTECTED] wrote:
>En réponse à Aaron Craig <[EMAIL PROTECTED]>:
>
> > foreach my $fichier (@fichiers)
> > {
> > my $result = (-e $fichier)? "$fichier fait (stat $fichier)[7]
> > octets\n" :
> > "$fichier inexistant \n";
> >
En réponse à Aaron Craig <[EMAIL PROTECTED]>:
> I would do something like this:
>
> use strict; # very important, and saves a lot of headache!
>
> open (SERV, "c:\\perl\\bin\\liste.txt") || die "Could not open
> liste.txt:
> $!"; # added error checking
> my @serveurs = ;
> close (SERV);
> open
I would do something like this:
use strict; # very important, and saves a lot of headache!
open (SERV, "c:\\perl\\bin\\liste.txt") || die "Could not open liste.txt:
$!"; # added error checking
my @serveurs = ;
close (SERV);
open (RESULT, ">>c:\\resultat.txt") || die "Could not open resultat.txt
well, first of all you want to take this open statement out of the 'for loop' and
declare it before the loop starts:
$resultat="c:\\resultat.txt";
open (RESULT, ">>$resultat");
not sure why the file existance check isn't working.. you might want to add some
print statements, or maybe try and open
