You might want to look at Date::Calc with the Day_of_Week function
-Original Message-
From: Conrad, Ben [mailto:[EMAIL PROTECTED]]
Sent: Thursday, March 01, 2001 1:16 PM
To: Perl-Win32-Users (E-mail)
Subject: Printing work days of the week
Hello,
I've been trying to get a script
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 sc
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 sugge
I believe you need to run perl with the perl script to get it to run.
I currently have a script that runs another script with the following line:
exec "perl myscript.pl $n";
This works fine for me on Windows2000. $n is just the variable I'm passing
in to myscript.pl. The perl.exe is in
> complicated for what I require as no variables are passed just a file read
require 'common_code.pl';
where common_code.pl might look like:
open FOO, 'foo.txt' or die "foo: $!";
# stuff
close FOO;
1; # remember this
___
Perl-Win32-Users mailing
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
> I know there is a win32-shortcut module. But I can't "use
> Win32::Shortcut" from the linux based perl it doesn't want to load
> under linux perl. Has anybody worked out how it might be used
> on a linux server to modify windows 9x style shortcut files using
> the windows version of perl?
If yo
[ 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 ).
http://www.google.com/search
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 arra
> 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);
___
Perl-Wi
> 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
Rather than sling all that text around the Internet, how about just
providing a URL for the file?
Better yet, how about emailing the author directly? I've found that he
responds very quickly to questions.
Rick
"Jimmy S. Lim" wrote:
>
> hi perl folks,
> how do i append a file into an exisiting
No I definitely need the Serial Number, it is for audit purposes, not to worry I
will have to re-think.
Thanks Anyway.
Daryll
|+--->
|| |
|| |
|| [EMAIL PROTECTED] |
|| 01 Mar 20
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
$& wit
Sorry, but as far as I know, and I have been doing this a long time, the
serial number of a computer is not stored in and BIOS or memory location.
If you mean IP address then thats different...
Mark
-Original Message-
From: [EMAIL PROTECTED] <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
<[EM
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 add
Rodeo Red wrote:
> -Ursprüngliche Nachricht-
> Von: Rodeo Red [mailto:[EMAIL PROTECTED]]
> Gesendet am: Donnerstag, 1. März 2001 09:31
> An: [EMAIL PROTECTED]
> Betreff: Bad path ?
>
> here is what I get when I use the set command to check the path:
> C:\Perl\eg>set
> TMP=C:\WINDOWS\TEMP
John.F.Kennedy wrote, on Wednesday, February 28, 2001 16:26
: Thanks . but is there somewhere with a little more information.
: > All this is new for me, can someone give me a good web
: > site for Perl and
: > ASP with examples . Also what modules do I need .
I'm sending you to Matthew: http
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
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 an intro and the
second is a
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$B!I(JN3??1$B!H(Ju 16:57
To: [EMAIL PROTECTED]
Cc: Perl-Win32-Users; Perl Beginner Group; [EMAIL PROTECTED]
here is what I get when I use the set command to check the path:
C:\Perl\eg>set
TMP=C:\WINDOWS\TEMP
TEMP=C:\WINDOWS\TEMP
PROMPT=$p$g
winbootdir=C:\WINDOWS
COMSPEC=C:\WINDOWS\COMMAND.COM
DJGPP=C:\DJGPP\DJGPP.ENV
PATH=C:\DJGPP\BIN;C:\PROGRA~1\ULTRAEDT;C:\WINDOWS;C:\WINDOWS\COMMAND;C:\PROGRA~1
\ULTRA
22 matches
Mail list logo
