Michael D. Schleif wrote:
> Using File::Copy to do
> copy(\\server1\path\file, \\server1\path\file);
>
> Documentation says,
>
> ``Special behaviour if syscopy is defined (OS/2, VMS and Win32)
>
> ``If both arguments to copy are not file handles, then copy will perform
> a ``system copy''
I always use utime after the file copy (to change the last modified time to
what the source file modify time was)..
And then Win32::Perms to find and set the perms and owner.
Steven
-Original Message-
From: Michael D. Schleif [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 18, 20
Using File::Copy to do
copy(\\server1\path\file, \\server1\path\file);
Documentation says,
``Special behaviour if syscopy is defined (OS/2, VMS and Win32)
``If both arguments to copy are not file handles, then copy will perform
a ``system copy'' of the input file to a new output file,
ppm install http://www.roth.net/perl/packages/win32-daemon.ppd
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 18, 2002 2:39 PM
To: [EMAIL PROTECTED];
[EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: Dave Roth's web site
Does anybody know
Does anybody know Dave's web?
I want to download daemon.pm on his web.
Thanks a lot in advance!
Lixin
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Ah. it worked like a charm, thanks very much.
Original Message Follows
From: "$Bill Luebkert" <[EMAIL PROTECTED]>
To: Mike Brentlinger <[EMAIL PROTECTED]>
CC: [EMAIL PROTECTED]
Subject: Re: http::daemon
Date: Wed, 18 Sep 2002 10:29:38 -0700
Mike Brentlinger wrote:
>Im having some diffic
Hi, Ross
This should do it:
...
$Book->{Saved} = 1;
$Book->Close;
> From: Ross Matt-QMR000 <[EMAIL PROTECTED]>
> To: [EMAIL PROTECTED], [EMAIL PROTECTED],
> [EMAIL PROTECTED]
> Subject: Automatically closing Excel
> Date: Tue, 10 Sep 2002 13:55:49 -0500
>
> To anyone that can help.
>
> I ha
I have a scriptlet on http://www.netsecadmin.com/cgi-bin/getsnipsweb.pl that
scans for URL exploits.
Bobby
-Original Message-
From: Gajendra Mehta [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, September 17, 2002 3:52 PM
To: [EMAIL PROTECTED]
Subject: Perl Tool to automate Web Testing on Wind
Title: RE: Resolve IP address
http://search.cpan.org/search?mode=module&query=nslookup
> -Original Message-
> From: Kevin [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, September 18, 2002 13:29
> To: Perl-Win32-Users
> Subject: Resolve IP address
>
>
> Hello,
>
> Is there a modul
> -Original Message-
> From: Gajendra Mehta [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, September 17, 2002 4:52 PM
> To: [EMAIL PROTECTED]
> Subject: Perl Tool to automate Web Testing on Windows
>
>
> Hello Everybody
>
> Would like to know if there is any perl tool to
> automate web Tes
Title: RE: Newbie question!!
### untested
my $dir = "/your/dir/here";
opendir(DIR,$dir) || die "Can't open dir $dir : $!\n";
my @files = readdir(DIR);
close(DIR);
foreach my $file (@files)
{
my ($name,$ext) = $file =~ /^([\w|\d]+)\[\d\]\.(\w+)$/;
rename("$file","$name\.$ext")
This is untested, but what about copying the files to the new directory
first and then deleting them? I'm also not sure, but you might have to do
these operations separately rather than both of them inside the same while
loop. I don't know if Perl cares which one of the operations it does first
in
Title: RE: DESPERATE
try either changing your \ to / or else you need to \\
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, September 10, 2002 03:34
> To: [EMAIL PROTECTED]
> Subject: DESPERATE
>
>
>
> I'm really desperate here.
> I have
Avila, Jorge wrote:
> Hi all,
>
> I have a directory with a lot of files like:
>
> abc[1].htm
> def[1].htm
> 123[1].htm
> 456[1].htm
>
>
> Can anybody please help to create a short script to rename it like ??
>
> abc.htm
> def.htm
> 123.ht
You have all kinds of options. I would recommend using the Win32::FileOp
module unless of course you want the code to be portable to UNIX then you
are going about it the right way but you need to change your code a bit:
Try:
opendir(INVOICES,'D:\ftproot\edi\test') || die "cannot open invoice: $!
Muñoz O, Normann (Valparaíso) wrote:
> Hi, I have a question:
>
> I get from STNDIN a string, for each caracter I check if it belong to a
> predifined group, the problem is that the caracter '0' is in that
> group'. As 0 es false, the match doesn't consider it.
>
> ¿How can I do that so the m
Mike Brentlinger wrote:
> Im having some difficulties with http::daemon. I know it must be
> something i just dont understand, so could someone explain why in the
> example below
>$c->send_file_response("C:\\index.html");
> works for me and
>$c->send_response("test\n");
>
Title: Regexp with 0
Normann,
Mi
surgencia es que utiliza lo siguiente:
CARACTER[$i]
=~/^([0|a|c|0])/
usando
corchetes dira a Perl que este es una clase de caracter que pertenece al grupo
que esta
buscando.
Espero que este le
ayude.
Dispense que not tengo este teclado con acent
Title: Regexp with 0
Change to an if:
if ( CARACTER[$i] =~ /^(a|b|1|0)/g;
) {
#true
}else {
# false
}
Wags ;)
-Original Message-From: "Muñoz O, Normann (Valparaíso)" [mailto:[EMAIL PROTECTED]]Sent: Friday, September 06, 2002 14:36To:
Hello,
Is there a module that anyone can recommend that will reverse resolve an IP
address and return a domain.
TIA.
--Kevin
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Phil Ritchie wrote:
> I'm trying to count occurrences of patterns using
>
> $_ = 'ababcdabcd';
> while ($_ =~ m/\Gab/gc)
> {
> $num++;
> }
> while ($_ =~ m/\Gcd/gc)
> {
> $num++;
> }
> print $num;
>
> But it doesn't work. I have a feeling that I need to employ the pos
> function somewher
This sounds like the perfect time for a split()
my($var1,$var2) = split /#/,$line;
perldoc -f split
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 18, 2002 7:49 AM
To: [EMAIL PROTECTED];
[EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: a q
Dear All ,
I am in need of reading events from a saved event log file(*.evt). Please
suggest me which module i should go to.
I have checked lanman , but in vain.
Please help me. This is very urgent.
Thanks and regards
rajuveera
**
while (<>) {
if ( /^#/ ){
print;
}
}
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 12, 2002 3:12 PM
To: [EMAIL PROTECTED];
[EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: A regular expression question
I have
To anyone that can help.
I have written a perl script to open and check the values inside of excel
worksheets and do some other stuff to it. All works well, It is just, I get
the warning pop up asking " are you sure you want to save?". it's not to bad
when you run two or three excel sheets but wh
hi Bill,
i can't do this because i only have write permission(from a script and not using ftp)
to a folder that can't be access from an
browser. so i have to generate the HTML code from inside the script :(
Cheers,
Tim
-Message d'origine-
De : $Bill Luebkert [mailto:[EMAIL PROTECTED]]
Tim Fletcher wrote:
> hi all,
>
> i have a perl script(html page) that takes a good 10 mins to run. i would like to be
>able to show the user that the script is still
> running by regularly printing a little text to the page. but it seems that the page
>isn't sent to the browser till the whole
hi all,
i have a perl script(html page) that takes a good 10 mins to run. i would like to be
able to show the user that the script is still
running by regularly printing a little text to the page. but it seems that the page
isn't sent to the browser till the whole script
has been processed! in
Win32::EventLog. Also check out the documentation on the non-standard
OpenBackup function on http://www.le-berre.com/perl/perldoc.htm. This may
be what you are after.
Phil Morley
|-+--->
| | Veeraraju_Mareddi
29 matches
Mail list logo
