I don't know about anything like that, but if you find it I'll be
interrested as well..
Cheers,
David
-Message d'origine-
De : Vuillemot, Ward W [mailto:[EMAIL PROTECTED]
Envoyé : mercredi 30 juillet 2003 01:05
À : Perl-Win32-Users (E-mail)
Objet : Win32::GUI Docs
All,
Where is a "def
foreach $sheet (1,2,4) {
print "\$sheet = $sheet\n";
}
-Message d'origine-
De : Beckett Richard-qswi266 [mailto:[EMAIL PROTECTED]
Envoyé : vendredi 18 juillet 2003 14:57
À : '[EMAIL PROTECTED]'
Objet : Neater?
Masters!?
Is there a neater way of doing this:?
my $sheet;
foreach
use strict;
my @out;
foreach(<>) {
chomp;
if (/^\d+;/) {
push @out, $_;
}
else {
if (defined $out[-1]) { $out[-1] .= $_; }
}
}
$,="\n";
print @out, "";
-Message d'origine-
De : [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Envoyé : vendredi 18 juillet 2003 11:04
À :
>
> >
> > Hello!
> >
> > I question about modules I have a config file defined as a perl module
> > exporting a variable (config.pm), and a perl script using this config
file
> > to do some stuff (install.PL). both files are in the same directory (I
put
> > the files below)
> >
> > when I run the
