The Roopak Times wrote:
Hi All
As i was continuing with perl i created a program to churn out individual
directory names from a given path in windows.Here is the program:
#use warnings;
#use strict;
Print "Enter the path:";
my $dir=<STDIN>;
chomp($dir);
my @DIR=split ///, $dir;
print $DIR[0];
but it throws an error "Search pattern not terminated"
Plz help.
--
Thankx & Regards
Roopak Kr Prajapat
You need to use a slash to escaped - /\//
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
