Just put,
next if($file =~ /^.+$/);
at the start of your while loop. "." and ".." directories are
special directories which refers to current directory and parent directory.
U need to skip this.
Hope this solves ur problem
Tushar
-Original Message-
From: Tanya Gra
Hi All,
I have a program which I want to execute both on WinNT and HP-UNIX.
The program logic requires to create child processes. So on Unix I use fork
and on WinNT I use Win32::Process::Create. I don't want to maintain 2
different versions of same script for different platforms. As Win32
"H:\study\perl\tests\this is a simple test.pl"
It was well noted that the second case was fully qualified though.
Christopher
-----Original Message-
From: Kulkarni, Tushar (GEL, MSX)
[mailto:[EMAIL PROTECTED]]
Sent: Friday, December 22, 2000 11:0
To get 8.3 name from long name we can use Win32::GetShortPathName(Filename),
is there equivalent of this to get long file name?
Tushar
-Original Message-
From: Newell, Paul [mailto:[EMAIL PROTECTED]]
Sent: Friday, December 22, 2000 2:14 PM
To: 'Kulkarni, Tushar (GEL, MSX)'
, 2000 1:12 PM
To: 'Kulkarni, Tushar (GEL, MSX)'; '[EMAIL PROTECTED]'
Subject: RE: Filename 8.3 again
You might want to look at how you are invoking Perl. Are you associating it
with a extension like .pl? Are you starting it from a shortcut?
When I run a simple test:
Hi All,
Some time back there was discussion about issues regarding filename
in 8.3 format. Unfortunately I couldn't find those mails.
I am using $0 to display program name on winNT. The program name is
displayed in 8.3 format. How can I get long filename?
Thanks
Tushar
___
Hi,
I am not familiar with HTTP requests, so I am getting confused about
this.
I want to put a file on web server using HTTP PUT request and PERL.
So I am using LWP and HTTP modules. it's something like this.
use HTTP::Request::Common;
use LWP::UserAgent;
$ua = LWP::UserAgent->ne
Hi,
I need to call pkzip from one of my perl scripts. It seems that
pkzip requires filenames in 8.3 format. But my filenames are bigger than
that. How do I get 8.3 name in perl. I am using perl on Win NT.
Or is there any perl package which can do same thing.
TIA
Tushar
___