Re: Removing file extension

2007-01-22 Thread Saravana Kumar
shaick mohamed wrote: > Try this > s/(.*)\..*/\1/; > > Thanks, > Shaick. > > On 1/23/07, Saravana Kumar <[EMAIL PROTECTED]> wrote: >> Hi list, >> >> I am trying to remove the extension from the a list of filenames and >> manipulate the names further. >> >> Tried to doing this: >> $file=~ s/\..*/

Re: Removing file extension

2007-01-22 Thread shaick mohamed
Try this s/(.*)\..*/\1/; Thanks, Shaick. On 1/23/07, Saravana Kumar <[EMAIL PROTECTED]> wrote: Hi list, I am trying to remove the extension from the a list of filenames and manipulate the names further. Tried to doing this: $file=~ s/\..*//; The above works fine. I get the result 'filename'

Removing file extension

2007-01-22 Thread Saravana Kumar
Hi list, I am trying to remove the extension from the a list of filenames and manipulate the names further. Tried to doing this: $file=~ s/\..*//; The above works fine. I get the result 'filename' if the filename is filename.ext. There are some files whose names are like file.name.ext and the

Re: OS independent Hardware listing

2007-01-22 Thread Jay Savage
On 1/22/07, Mike Martin <[EMAIL PROTECTED]> wrote: Is it possible to get a OS independendent listing of Hardware installed? In particular I want to get a list of following devices CD/DVD drives Video devices At the moment I am using Linux specific devices, but I would like the capability to us

Re: How to customize Perl installation

2007-01-22 Thread Jeff Peng
> > It depends on what operating system you are using on > your host. > HI, I'm using RedHat Linux (AS4) of 2.6 kernel.Thanks. Yahoo! Music Unlimited Access over 1 million songs. http://music.yahoo.com/unlim

OS independent Hardware listing

2007-01-22 Thread Mike Martin
Is it possible to get a OS independendent listing of Hardware installed? In particular I want to get a list of following devices CD/DVD drives Video devices At the moment I am using Linux specific devices, but I would like the capability to use hardware description as used by native OS Thanks

Re: Global variable - No of hits counter

2007-01-22 Thread Mumia W.
On 01/22/2007 04:17 PM, tom tom wrote: Can I know how to pass parameters from the CRON job e.g cleanup folder and delta time in seconds and thereafter retreive that from the perl. My cleanup rountine currently hardcoded with these values [...] Why not just make it a regular, non-CGI, Perl sc

Re: Perl/HTMl Upload: CGItemp*****

2007-01-22 Thread Tom Phoenix
On 1/22/07, Gerald Wheeler <[EMAIL PROTECTED]> wrote: I have a huge number of very, very large files in /var/tmp with file names as such: CGItemp (n is a random number) I am assumming that these files were created is association with a file upload utility I have that uses HTML and Perl, one

Re: Global variable - No of hits counter

2007-01-22 Thread tom tom
Hi, My intention was to write a cleanup routine when the server encounters that many requests, but somehow I achieve it via a CRON job. which executes a perl script (CGI). Can I know how to pass parameters from the CRON job e.g cleanup folder and delta time in seconds and thereafter retreive tha

Re: regexp that doesn't work properly

2007-01-22 Thread Tom Phoenix
On 1/22/07, Adriano Allora <[EMAIL PROTECTED]> wrote: < NOM anthNOM > NOM Those lines have tab characters, maybe? perl -pi -e "s/< NOM .anthNOM .> NOM //gis" corpus.txt The -p option is useful for doing some simple processing in one

Re: Could someone help me with this source code?

2007-01-22 Thread Tom Phoenix
On 1/22/07, Caduceus <[EMAIL PROTECTED]> wrote: What I want to know is would this unix perl script work in windows TIA What happened when you tried it? There's good information on Perl portability issues in the perlport manpage. Good luck with it! --Tom Phoenix Stonehenge Perl Training --

Re: Could someone help me with this source code?

2007-01-22 Thread Caduceus
""Tom Phoenix"" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > On 1/20/07, Caduceus <[EMAIL PROTECTED]> wrote: > >> I'm trying to run this perl script called "salter" on activestates >> komodo. >> I hope to use it with Mozilla Thunderbird. I've read Learning Perl, >> another >>

regexp that doesn't work properly

2007-01-22 Thread Adriano Allora
Hi to all, I need to clean a tagged text (each line= a word, a part of speech, a lemma). Actually the corpus shows some errors like this one: < NOM anthNOM > NOM I wanto to replace these three lines with a single line like this one: well, I tried the command

Perl/HTMl Upload: CGItemp*****

2007-01-22 Thread Gerald Wheeler
I am running Perl on Solaris 9 SPARC I have a huge number of very, very large files in /var/tmp with file names as such: CGItemp (n is a random number) I am assumming that these files were created is association with a file upload utility I have that uses HTML and Perl, one for each file uplo

Re: How to customize Perl installation

2007-01-22 Thread David Moreno Garza
On Mon, 2007-01-22 at 09:05 -0800, Jeff Peng wrote: > Hello, > > I just need Perl core and CGI.pm to be installed on my > host.How can I do it?thanks. It depends on what operating system you are using on your host. Cheers, David. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional com

How to customize Perl installation

2007-01-22 Thread Jeff Peng
Hello, I just need Perl core and CGI.pm to be installed on my host.How can I do it?thanks. Do you Yahoo!? Everyone is raving about the all-new Yahoo! Mail beta. http://new.mail.yahoo.com __

Re: XML::Rules tests [was: Re: XML::LibXML navigation]

2007-01-22 Thread Beginner
On 22 Jan 2007 at 16:42, Igor Sutton wrote: > Hi Jenda, > > I read your message and gave XML::Rules a try, but the tests aren't ok > on Linux. You can change the last line of t/boilerplate.t from > > module_boilerplate_ok(File::Spec->catfile('\lib\XML\Rules.pm'); > > to > > module_boilerplate_

Re: XML::Rules tests [was: Re: XML::LibXML navigation]

2007-01-22 Thread Jenda Krynicky
From: "Igor Sutton" <[EMAIL PROTECTED]> > Hi Jenda, > > I read your message and gave XML::Rules a try, but the tests aren't ok > on Linux. You can change the last line of t/boilerplate.t from > > module_boilerplate_ok(File::Spec->catfile('\lib\XML\Rules.pm'); > > to > > module_boilerplate_ok(Fi

XML::Rules tests [was: Re: XML::LibXML navigation]

2007-01-22 Thread Igor Sutton
Hi Jenda, I read your message and gave XML::Rules a try, but the tests aren't ok on Linux. You can change the last line of t/boilerplate.t from module_boilerplate_ok(File::Spec->catfile('\lib\XML\Rules.pm'); to module_boilerplate_ok(File::Spec->catfile(qw(lib XML Rules.pm))); Keep up the good

Re: files download and performance

2007-01-22 Thread Igor Sutton
Hi Tatiana, 2007/1/22, Tatiana Lloret Iglesias <[EMAIL PROTECTED]>: I've executed script using ip number instead of domain name but it takes more or less the same time in these 2 steps: $browser2->get($url); $content = $browser2->content(); You also has to consider the network tr

Re: XML::LibXML navigation

2007-01-22 Thread Jenda Krynicky
From: "Beginner" <[EMAIL PROTECTED]> > Hi, > > I have to do some sanity checks on a large xml file of addresses (snip > below). I have been using XML::LibXML and seem to have started ok but > I am struggling to navigate around a record. > > In the sample date below your'll see some addresses with

Re: files download and performance

2007-01-22 Thread Tatiana Lloret Iglesias
I've executed script using ip number instead of domain name but it takes more or less the same time in these 2 steps: $browser2->get($url); $content = $browser2->content(); Honestly i dont know if these 9 seconds can be improved ... Regards, T On 1/22/07, Igor Sutton <[EMAIL PROTE

Re: xml read Error (while reading xml file with foriegn characters)

2007-01-22 Thread Jenda Krynicky
From: "perl pra" <[EMAIL PROTECTED]> > I have a problem with reading xml file which has foriegn characters > (like plutôt) using xml::Simple. > > > I get xml read error. > > > Then I included encoding=iso8859-1 at the top of xml file. > > I am able to read the xml file , but the characters are cha

Re: Remote directory

2007-01-22 Thread Jenda Krynicky
From: "Dukelow, Don" <[EMAIL PROTECTED]> > Does anyone have a favorite method the checks for existence of a file > or directory on remote system. I know it can be done with a system > call, but can Perl do it within its self? > > Don Dukelow Define "remote"! How do you access the remote system?

Re: files download and performance

2007-01-22 Thread Igor Sutton
Hi Tatiana, 2007/1/22, Tatiana Lloret Iglesias <[EMAIL PROTECTED]>: does it work for this kind of urls? http://patft.uspto.gov/netacgi/nph-Parser? thanks! T. For these kind of problem, you always have URI: #!env perl use strict; use warnings; use URI; my $url = "http://patft.uspto.gov/net

Re: files download and performance

2007-01-22 Thread Tatiana Lloret Iglesias
does it work for this kind of urls? http://patft.uspto.gov/netacgi/nph-Parser? thanks! T. On 1/22/07, Igor Sutton <[EMAIL PROTECTED]> wrote: Hi Tatiana, 2007/1/22, Tatiana Lloret Iglesias <[EMAIL PROTECTED]>: > i've realized that for each link, i spend most of the time in the following > perl

Re: exec and pipe

2007-01-22 Thread Jenda Krynicky
From: Andreas Brillisauer - Hetzner Online AG <[EMAIL PROTECTED]> > Hello, > > I'm just writing a script that gets an email from stdin. This mail > should be passed to procmail via ssh. If calling ssh or procmail > fails, the mail should be saved locally. > > First I tried to s

Re: files download and performance

2007-01-22 Thread Igor Sutton
Hi Tatiana, 2007/1/22, Tatiana Lloret Iglesias <[EMAIL PROTECTED]>: i've realized that for each link, i spend most of the time in the following perl script foreach my $url (@lines){ -- I READ MY 1-ROW URL FILE $contador=2; $test=0; while(!$test){ $browser2->

Re: files download and performance

2007-01-22 Thread Tatiana Lloret Iglesias
i've realized that for each link, i spend most of the time in the following perl script foreach my $url (@lines){ -- I READ MY 1-ROW URL FILE $contador=2; $test=0; while(!$test){ $browser2->get($url); $content = $browser2->content(); --IN THESE 2 STEPS

Re: files download and performance

2007-01-22 Thread Igor Sutton
Hi Tatiana, 2007/1/22, Tatiana Lloret Iglesias <[EMAIL PROTECTED]>: I do it from the JAva and not from the PErl because i need to perform an insert into the database each time i process a link and also i have to inform via rss about the progress of the global download process (23.343 out of 70.0

Re: files download and performance

2007-01-22 Thread Tatiana Lloret Iglesias
I do it from the JAva and not from the PErl because i need to perform an insert into the database each time i process a link and also i have to inform via rss about the progress of the global download process (23.343 out of 70.000 files have been downloaded) On 1/22/07, Igor Sutton <[EMAI

Re: files download and performance

2007-01-22 Thread Igor Sutton
Hi Tatiana, 2007/1/22, Tatiana Lloret Iglesias <[EMAIL PROTECTED]>: Regarding the performance problem: The schema of my application is: 1. I execute perl script which performs a search in a public database. It gets total results in *several pages*. Pressing "Next Page" button (with perl script

Re: files download and performance

2007-01-22 Thread Tatiana Lloret Iglesias
Regarding the performance problem: The schema of my application is: 1. I execute perl script which performs a search in a public database. It gets total results in *several pages*. Pressing "Next Page" button (with perl script) i get a list of all the links related to my query (70.000 more or le

Re: Date and time

2007-01-22 Thread M. Lewis
Rob Dixon wrote: M. Lewis wrote: > > Given the following code, if I were to want $day, $month, $hour, $minute > & $sec to have a leading zero (ie 01 for Jan rather than 1), is my only > option to use printf? Or is there a better way. > > What I'm searching for here is the *correct* method

Re: Trouble appending into gzipped file using Compress::Zlib (Re: compressing files into tar.gz (which module do you prefer)

2007-01-22 Thread Rob Dixon
Michael Alipio wrote: From: Rob Dixon <[EMAIL PROTECTED]> Michael Alipio wrote: After parsing a log and writing it into a file, I now, have to compress it into tar.gz. Right now, I'm doing a search at CPAN and there where too many modules out there with "compress" or "archive" search keyword

Re: putting ";" as a replacement in the substitution.

2007-01-22 Thread Igor Sutton
Hi, 2007/1/22, Ovid <[EMAIL PROTECTED]>: [snip] my $captured; if ( $some_var =~ /^(\w+)\s+/ ) { $captured = $1; } if ( $captured ) { ... } > I also noticed that $capture here will always contain the first catched > match ($1). No, it doesn't in your example. The only way to ma