Try this...
if (/\Q$target\E/) { DoStuff; }
Thanks,
Rick
Richard Grakowsky
Systems Specialist, Monroe Community College
[EMAIL PROTECTED]
Office: 585.292.3236 / Fax: 585.427.2749
"Progress occurs when we are no longer willing
to acc
You need to escape your backslashes.
%NetResource = ( RemoteName => 'server\\share\\vol' );
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Burns, Tom (Consultant) [mailto:[EMAIL PROTECTED]
Sent: Monday
I can map a share on the command line using the following:
net use /USER:username \\server\share\vol
Also, I can map using the following code:
system("net use /USER:$user server\\\share\\vol $pass")
But cannot map the share using the following code:
%NetResource = ( RemoteName => '\\ser
steve silvers wrote:
> No... This is not the problem.. I wrote a small snippet to show the
> problem..
You will have to anchor in some way or otherwise you will get the H for HH. So
depending on how you $a , the you could do ^(H|V|P|BI|B)$ or if if could be a space or
some other character
On Monday, August 4, 2003, at 04:36 PM, steve silvers wrote:
No... This is not the problem.. I wrote a small snippet to show the
problem..
#/Perl -w
use strict;
my $a = 'HH';
# FULL DAYS
if($a =~ /H|V|P|BI|B/) {
print qq(FULL - $a );
}
# HALF DAYS
if($a =~ /HH|HV|L/) {
I'm not quite sure how to code this, (or search for a solution to)
I want to search a text file, and replace a text string of the format
$xxx. Example: I want to search for $sysname in a file, but I want to
first
assign that string to a perl variable. I've tried various combinations of
I am fairly new to Perl and haven't approached a scipt
this complex or computation this intensive. So I
would certainly appreciate any advice.
I have successfully created a hash of arrays
equivalent to a 122 x 6152 matrix that I want to run
in 'pairwise combinations' and execute the 'sum of the
No... This is not the problem.. I wrote a small snippet to show the
problem..
run this..
#/Perl -w
use strict;
my $a = 'HH';
# FULL DAYS
if($a =~ /H|V|P|BI|B/) {
print qq(FULL - $a );
}
# HALF DAYS
if($a =~ /HH|HV|L/) {
print qq(HALF - $a );
}
It will print
Title: RE: How to recurse a directory and all files in it
$topdir="c:\\"; #your dir here!
@files=`"dir $topdir /a-d/s/b/on"`;
foreach $file (@files)
{
chop($file); #remove \n
# ... do something with file here...
}
-Original Message-
From: S
> From: Subrahmanyam Vadlamani [mailto:[EMAIL PROTECTED]
> Subject: How to recurse through a directory and do something
> with each file
> I would like to recurse through a directory and do
> something with the files in the directory (and all sub-directories).
>
> What is the most efficient w
perldoc File::Find
> -Original Message-
> From: Subrahmanyam Vadlamani [mailto:[EMAIL PROTECTED]
> Sent: Monday, August 04, 2003 2:38 PM
> To: perl-unix; perl-win32
> Subject: How to recurse through a directory and do something with each
> file
>
>
> Hi:
>
> I would like to recurse thro
Hi:
I would like to recurse through a directory and do
something with the files in the directory (and all
sub-directories).
What is the most efficient way of doing this? What
are some modules that I could use?
If someone has some example code, I would very much
appreciate it.
thanks
Satish
_
12 matches
Mail list logo