not elegant but this should work:
$res[0] = substr($data, 0, 3);
$res[1] = substr($data, 3);
Matt
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: 13”N3??1“u 16:57
To: [EMAIL PROTECTED]
Cc: Perl-Win32-Users; Perl Beginner Group; [EMAIL PROTECTED]
Rodeo Red wrote:
I'm trying to read the Active state FAQ
file:///C%7C/Perl/html/index.html says
Contents of this FAQ
ActivePerl-faq: Overview of the ActivePerl FAQ (this document)
ActivePerl-faq2: Perl Package Manager (PPM)
So where is the ActivePerl FAQ ? The first part is
if you are building for speed avoid $, $' and $` as they make copies of
the variable being manipulated (see Freidl's Mastering Regular Expressions
ppgs. 273-278 and 281-282).
"you could try changing your substitute to a match and either using parens
with $1 $2 and so on or you could use
$ with
Can anybody point me in the direction of a module or function that will allow me
to grab the serial number from either a Laptop or PC?
Thanks
Daryll
The information in this e-mail and any attachments is confidential and may be
legally privileged. It is intended solely for the addressee or
I'm trying to read the Active state FAQ
http://www.activestate.com/Support/ActivePerl/index.html
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
not elegant but this should work:
$res[0] = substr($data, 0, 3);
$res[1] = substr($data, 3);
substr() is zero based so to get the third character to the end of the line
you'll have to start at position 2:
$res[1] = substr($data, 2);
___
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED];
[EMAIL PROTECTED];
[EMAIL PROTECTED];
[EMAIL PROTECTED]
[ Grrr, just post to one list! ]
($a,$b) = $x =‾ /(.{3})(.*)/;
Shouldn't you be pushing that stuff into an array as each time
[ I don't have the original posters email at this terminal ]
if you are building for speed avoid $, $' and $` as they make copies of
If you really really needed it to be fast you might look into writting it in
C using PCRE ( Perl Compatible Regular Expression ).
I have several scripts which all execute the same code at the end. I would
like to separate this common code into another file and have it executed by
each script just before it finishes (no return).
I've looked at libraries, packages, modules and it all seems over
complicated for what I require
Hello,
I've been trying to get a script together that will print only the work days
of the week (M-F) for a given year. I need to do this so I can apply the
tower of Hanoi priciple for my backups. I've been looking at Date::Manip
but I don't realy see a way to get M-F for each month.
Any
Hi Ben,
I use Date::Calc for this sort of work.
Glen
-Original Message-
From: Conrad, Ben [mailto:[EMAIL PROTECTED]]
Sent: Thursday, March 01, 2001 2:16 PM
To: Perl-Win32-Users (E-mail)
Subject: Printing work days of the week
Hello,
I've been trying to get a script
11 matches
Mail list logo