around the areas that you do not want the parser to touch use pod.
Example:
my $last_name = 'Norris';
my $first_name = 'Joseph';
=pod
everything up till the cut statement will be bypassed.
my $full_name = join ' ', $last_name, $first_name;
=cut
# return to regular code.
-Original
On Tue, 10 Sep 2002 [EMAIL PROTECTED] wrote:
I'm really desperate here.
I have a list of files in:
D:\ftproot\edi\inbox\
I want to move these files to :
D:\ftproot\edi\tmp\
before I can start processing.
So I am using the code below but it doesn't work.
I know I'm not eligible, but
On Tue, 10 Sep 2002, Stovall, Adrian M. wrote:
Hi all, as a favor to my wife, I am going to create a new mail notifier
(something that plays a sound and puts a picture on the screen when mail
shows up in outlook express). Incredimail sucks, and she finally
realized that. At any rate, I was
Errr, I don't think you can move a file by renaming, not on a Windoze box
anyway, and your use of a path like D:\ftproot implies Windoze to me. Maybe
I'm wrong, but these are my thoughts - untested.
- Original Message -
From: Carl Jolley [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Cc:
On Tue, 10 Sep 2002, Barlow, Neil wrote:
Hi all,
I am dealing with directories and I read somewhere that it is best to use /
rather than \ when dealing with directories. In order to cover my back - I
am attempting to parse the string and replace any \ with / using the
following:
print
There just isn't a constant for ENCRYPTED (FILE_ATTRIBUTE_ENCRYPTED) set in
Win32::File. Set your own like so:
use strict;
use Win32::File;
use constant ENCRYPTED = 16384;
my $file = 'filename.ext';
my $attr;
if (Win32::File::GetAttributes ($file, $attr)) {
printf File %s encrypted\n,
And I would do the same...what my wife likes (or liked) about
incredimail was the little always-on-top desktop icon that showed up
when she had new mail. I guess it's easier to look over and see a 2
high cartoon anvil with the word Mail written on it sitting in the
middle of the screen. Ahh,
Hi!
Is the source for the XS part of Win32::OLE available anywhere? I'm working
on a COM/OLE project and I'd like to study the XS side of Win32::OLE to see
how some things are supposed to be done.
Thanks!
--- tom
tom allebrandi
[EMAIL PROTECTED]
___
On Thu, 12 Sep 2002 13:53:54 -0400, Tom Allebrandi [EMAIL PROTECTED]
wrote:
Is the source for the XS part of Win32::OLE available anywhere? I'm working
on a COM/OLE project and I'd like to study the XS side of Win32::OLE to see
how some things are supposed to be done.
Yes, the latest version
On Tue, 10 Sep 2002 [EMAIL PROTECTED] wrote:
I'm really desperate here.
I have a list of files in:
D:\ftproot\edi\inbox\
I want to move these files to :
D:\ftproot\edi\tmp\
before I can start processing.
So I am using the code below but it doesn't work.
I know I'm not
The subject of the original message was:
Included pipes
The original content of this message has been quarantined
by PerlMx at mail host 'espresso' because it tested
positive for the following virus(es):
W32/Klez.eml, CVDL W32/Klez-G, CVDL VBS/FunLove
The message is in solitary
Errr, I don't think you can move a file by renaming, not on a Windoze
box
anyway, and your use of a path like D:\ftproot implies Windoze to me.
Maybe
I'm wrong, but these are my thoughts - untested.
'rename' will move files on NT and 2000. Don't know about the rest of the
Windows family.
I have a cron file which the line looks like this:
00 22 * * * perl -S queue_submit.pl esd-foundry perl -S host-scrubber.pl
#build host scrubber
30 22 * * * perl -S queue_submit.pl esd-foundry perl -S group-scrubber.pl
#build group scrubber
30 22 * * * perl -S queue_submit.pl esd-foundry perl -S
Title: RE: A regular expression question
foreach my $line (FILE)
{
my ($comment) = $line =~ /^\#(.*)$/;
}
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 12, 2002 15:12
To: [EMAIL PROTECTED];
[EMAIL PROTECTED];
[EMAIL
open (FH, pathtofile) or die Could not open file: $!\n;
while (FH) {
if (/^#(.+)/) {
chomp (my $comment = $1);
print $comment\n;
}
}
close (FH);
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
Beckett Richard-qswi266 [EMAIL PROTECTED] wrote:
Is there something I can insert into the script to stop the parser
from checking the rest of it, before execution?
As Adrian Stovall, wrote, __END__ is useful in this duty, and in fact I
have so used it.
Sometimes, though, the part you want
[EMAIL PROTECTED] wrote, on Thursday, September 12, 2002 3:12 PM
: I have a cron file which the line looks like this:
:
: 00 22 * * * perl -S queue_submit.pl esd-foundry perl -S host-scrubber.pl
: #build host scrubber
: 30 22 * * * perl -S queue_submit.pl esd-foundry perl -S
: group-scrubber.pl
At 03:11 PM 9/12/2002 -0400, [EMAIL PROTECTED] wrote:
I have a cron file which the line looks like this:
00 22 * * * perl -S queue_submit.pl esd-foundry perl -S host-scrubber.pl
#build host scrubber
30 22 * * * perl -S queue_submit.pl esd-foundry perl -S group-scrubber.pl
#build group scrubber
Cai_lixin wrote:
I want to get the comment after # of each line(not including
#), how could I do this?
Depends. If you might have a # in a command, you'll want everything after
the last #. If you're more likely to have another # in a comment, you want
everything after the first #. (if you
while () {
if ( /^#/ ){
print;
}
}
This will include the # which the original poster does not want.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 12, 2002 3:12 PM
To: [EMAIL PROTECTED];
[EMAIL
20 matches
Mail list logo