HI ,
I want to use Win32: :Serialport module to read from a COM port
.I am using the windows XP 2000.Acivestate perl 5.6.I want to know how to
download the module . i downloaded teh module but it's in tar format.so i
used winzip then i read the readmefile to install that one .but where i
should install that one .in lib or site/lib.
2)I used PPM to install like
PPM>install Win32::SerialPort
then i am getting error msg like
Error Installing package "Win32::SerialPort": Read a PPD for
'Win32-serialport'
but it is not intendend for this build of perl (MSWin32-x86-multi-thread)
And when other pachakes i am trying to
install By using PPM i am getting Err msg like
PPD file not found
??
Should i go to the Lib directory and type PPM or from any where like
E:\>PPM install Mouule::PM
Thanks in advance
swayam
----- Original Message -----
From: "Dermot Paikkos" <[EMAIL PROTECTED]>
To: <beginners@perl.org>
Sent: Thursday, October 27, 2005 3:37 PM
Subject: Is this script safe?
Hi,
I wanted a script that would rename files from lower to upper case. I
have something but I am a bit worried about going live with it as I
can imagine there is plenty of room for error and I really don't want
to knacker my filesystem.
Could I get any comments of suggestion on what I have. I want
something safe/secure.
I am not sure about what would happen if it was passed more than one
argument. Should I allow more than one argument?
Are the any gotcha's to watch out for?
Thanx,
Dp.
=============== upper.pl===============
#!/usr/bin/perl -Tw
# upper.pl
# Upper case all lowercase file in a given directory.
use File::Copy;
use strict;
my $dir = shift;
my $found = 0;
opendir(DIR,$dir) or die "Can't open $dir: $!\n";
foreach my $name (sort grep !/^\./, readdir DIR) { # Credit Randal L.
Schwartz
if ($name =~ /[a-z]/) { # Look for lc file. Wot about
files
# with numbers??
++$found;
if ($dir !~ /\/$/) { # Add a slash if there is'nt
one
$dir = "$dir"."/";
}
(my $new = $name) =~ tr/[a-z]/[A-Z]/; # trans the
name
$name = "$dir"."$name";
$new = "$dir"."$new";
#mv("$name","$new") or die "Can't upper $name: $!\n";
print "$name -> $new\n";
}
}
print "Found $found lowercase files\n"
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
