This is your offending line.
system ('BAT2EXEC.COM $file') # $file contains the batch file(s) name.
You might want to try this if you can't figure out what is wrong with that
line.
if($file =~ /(.*).bat/) {
system('RENAME', $file, $1.exe);
}
-Original
$a = this is a (test);
$a =~ s/\W+/_/g;
HTH
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
[EMAIL PROTECTED]
Sent: Thursday, April 01, 2004 11:28 AM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: RE: regular expression question
Thanks for the
Actually not a typo-
Subs a path prefix in $curren with $self-{'Dir'}
Thus
$currn = '/usr/local/bin/perl';
$self-{'Dir'} = '/home/joe';
$currn =~ s+.*/([^/]*)+$self-{'Dir'}/$1+ if defined($self-{'Dir'});
# results in
$currn == /home/joe/perl
Here's what's happening;
$currn =~ # I'll
Given a filename, use the -B or -T operators.
See perldoc ferlfunc
HTH
Stacy
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Thursday, October 10, 2002 1:34 PM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: RE: How can I figure out whether it is binary
Fernando
The is a 100 count limit on recursion within perl (to avoid possible
infinite loops)
To filter out just that warning (but let other problems through)
perl 5.6
local $SIG{__WARN__} = sub { $_[0] =~ /^Deep recursion/ or warn
$_[0] };
perl = 5.6:
no warnings
