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 Message-
$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 replyin
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 fil
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 'recursi
