Module

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" <dermot@xxxxxxxxxxxxxxxx>
To: <beginners@xxxxxxxx>
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: beginners-unsubscribe@xxxxxxxx
For additional commands, e-mail: beginners-help@xxxxxxxx
<http://learn.perl.org/> <http://learn.perl.org/first-response>




.

Relevant Pages

  • Re: Query on databases
    ... Regards, ... > Install the package by specifying the ppd file directly: ... >> ppm> search mysql ... >> Gayatri. ...
    (perl.beginners)
  • Re: Query on databases
    ... Hey Gayatri, ... You shall use PPM to set a local repository. ... Searching in Active Repositories ... > If you are using ActiveState Perl, then install the module via PPM. ...
    (perl.beginners)
  • RE: Query on databases
    ... Unzip the package to a temporary directory. ... Install the package by specifying the ppd file directly: ... > ppm> search mysql ... > Searching in Active Repositories ...
    (perl.beginners)
  • Re: modules for nntp client
    ... If it is a Pure Perl module, you can install it ... Those are repositories to add to ppm. ... Unpacking Win32-Console-ANSI-1.00...done ...
    (comp.lang.perl.misc)
  • Re: perl DBI,DBD::ODBC installation help
    ... downloaded the ppm modules and even Activestate Perl from the links ... Save the downloaded file on your hard disk in the C:\usr folder. ... Download the required PPMPackages ... directory and typed ' PPM install DBI'. ...
    (comp.lang.perl.modules)