Hi:
I see these errors when i run my perl script.
Unrecognized escape \B passed through at C:\test.pl line 41.
Unrecognized escape \o passed through at C:\test.pl line 41.
Unrecognized escape \W passed through at C:\test.pl line 41.
Unrecognized escape \W passed through at C:\test.pl line 41.
Unrecognized escape \v passed through at C:\test.pl line 41.
.....
....
line 41.
Missing braces on \N{} at C:\test.pl line 41, within string
Execution of C:\test.pl aborted due to compilation errors.
My script looks like --
#!/usr/bin/perl
use strict;
use warnings;
#use File::Save::Home;
use File::Basename;
use File::Find;
use IO::All;
use File::Spec;
my $path = $ARGV[0];
my $topdir = $ARGV[1];
my $flag = $ARGV[2];
my $grpfile = $ARGV[3];
my $logfile = $ARGV[4];
if ($ARGV[0] eq "-help") { help(); }
if (@ARGV != 5)
{
print "Program exiting,insufficient arguments\n
For HELP, type
perl <path to test.pl> -help\n";
exit 1;
}
sub help {
print STDERR
"This perl script accepts 5 arguments. The syntax is: <-----------LINE 41
>perl <path to the directory from which files needs to be extracted>
<the sub directory name path>
<grpfile location>
<a flag to insert the header for the file group eg usr_bin
will insert [usr_bin.files] header>
<the respective component log file containing a flattened
list of all files within the directory to be created on fly on a drive
writeable by you,
this file is typically a file under your home directory>
The script creates the grpfiles on your local disk either C:/ or
D:/. This script expects the grpfile to be present
under C:\, one can modify this script if the file is present anywhere else.
The bare-bone grpfile should be present on the filesystem under C:\
or D:\ before running the perl script. This bare-bone will only be
needed for initial runs.
Latter, you can directly modify the grp.xml file that gets created
by running the grprun.pl script on the .grp file.
Example->
perl .........................
Where............................\n";
exit 0;}
What could be causing this?
Thanks!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
