Hi list
i have this snippet:
$Ajout=1;
while (FIC)
{
print \n$DCICLIENTDIR\\logicalPMF.exe -f
$DCICLIENTDIR\\config$NOM_PMF.cfg\n;
print ($_);
my $var1=$DCICLIENTDIR\\logicalPMF.exe -f
$DCICLIENTDIR\\config$NOM_PMF.cfg\n;
my $line=($_);
if ($_ =~ m /$var1/)
{
$Ajout=0;
}
}
Hi List , I have this to print:
1
2
3
with this script but it didn't work:
#!/usr/bin/perl
use strict;
use warnings;
{
local $/;
my $file = DATA;
while ($file =~ /^\s+(\d+).(.+)$/) {
print $1\n if $2 =~ /extractStat/;
}
}
__DATA__
?tatID Jour
Hi, I have a text file like this:
1 Chaque L Ma Me J V S D 00:20
D:\muse\lotus\notes\extractStat.exe StatA090 j
2 Chaque L Ma Me J V S D 00:21
D:\muse\lotus\notes\extractStat.exe StatA090 m
3 Chaque L Ma Me J V S D 00:22
D:\muse\lotus\notes\extractStat.exe
Hi List, i have a perl script that adds some Nt at commands but the problem
is how can i do to prevent my script to not delete old tasks defined in at.
Thanks .
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/