RE: New to Perl

david <[EMAIL PROTECTED]> wrote: : : Wc -Sx- Jones wrote: : : > explicit zero (0) or nothing ( or undefined.) : > : > That is NOT true (it's not false either per se...) : > : : this is impossible in Perl. show me an example : where something is neither true nor false. Er, um, well ... #!

Re: illegal octal digit '8'?

John W. Krahn wrote: Wiggins D'Anconia wrote: So a Perlish way to do this, my (@months) = ('jan','feb','mar','apr','may','jun','jul','aug','sep','oct','nov','dec'); my ($mday, $mon, $year) = (localtime)[3,4,5]; my $date = sprintf('%02d-%3s-%04d', uc $mday, $months[$mon] , $year+1900);

Re: Lingua::EN::Numbers

WC -Sx- Jones wrote: Also, in this test case I see that -w and use warnings are treated the same. With -w I get g, I mean NOT treated the same. Sorry/Sx -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: illegal octal digit '8'?

Just another suggestion on how you might accomplish the same thing: ## my @months = qw(XXX JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC); return $months[$tmp] ## -Original Message- From: Charlotte Hee [mai

Lingua::EN::Numbers

#! /usr/local/bin/perl use strict; use warnings; use Lingua::EN::Numbers; my $number = 2**64; while(1) { ($number *= 2) ? print "\n" . &words($number) . " ..." : ''; sleep 1; exit if $number =~ /Infinity/i; } sub words { my $number = new Lingua::EN::Numbers(); $number->p

Re: illegal octal digit '8'?

Wiggins D'Anconia wrote: > > So a Perlish way to do this, > > my (@months) = > ('jan','feb','mar','apr','may','jun','jul','aug','sep','oct','nov','dec'); > my ($mday, $mon, $year) = (localtime)[3,4,5]; > > my $date = sprintf('%02d-%3s-%04d', uc $mday, $months[$mon] , $year+1900);

Re: Is this possible? (file handles)

Jeff Westman wrote: > This doesn't answer my question. Okay > I wanted to know if it is > possible to remove a file using the FH name, not the variable name > referencing it. No. Joseph -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: HOT: Search/Replace || and *|

Lonewolf wrote: > > I have a file that I need to replace the *| and || with just | and can not > seem to get it to go. It either puts in an | every space, or it puts in > multiples of them, how do I fix this? > > here's what I have: > sub cleanup{ > > use strict; > > my $file = "/home/web/sale

Re: illegal octal digit '8'?

Charlotte Hee wrote: In my perl script I use the unix command 'date' to make a time stamp because eventually I want the date format to be DD-MON-, where DD is the number of the day (1-31), MON is the 3-char spelling of month (i.e. JAN), and is the 4-digit year. In this perl script I'm just

Re: illegal octal digit '8'?

On Fri, Apr 02, 2004 at 04:44:48PM -0800, Charlotte Hee wrote: > > > In my perl script I use the unix command 'date' to make a time stamp > because eventually I want the date format to be DD-MON-, where DD is > the number of the day (1-31), MON is the 3-char spelling of month (i.e. > JAN), an

Re: Hash ref's of hash's

"John W. Krahn" wrote: > > Perhaps this will do what you want: > > #!perl -w > use strict; > use Data::Dumper; > > open RD, 'input.txt' or die "Cannot open 'input.txt' $!"; > > my ( %data, $temp ); > while ( ) { > chomp; > my ( $name, $value ) = split /\s*=\s*/ or next; > if ( exis

RE: nested parens

thanks -Original Message- From: Randy W. Sims [mailto:[EMAIL PROTECTED] Sent: Friday, April 02, 2004 5:24 PM To: ewalker Cc: [EMAIL PROTECTED] Subject: Re: nested parens [EMAIL PROTECTED] wrote: > Is there a module out there that I can use to parse a text line and return the > pieces t

illegal octal digit '8'?

In my perl script I use the unix command 'date' to make a time stamp because eventually I want the date format to be DD-MON-, where DD is the number of the day (1-31), MON is the 3-char spelling of month (i.e. JAN), and is the 4-digit year. In this perl script I'm just testing for the da

Re: nested parens

[EMAIL PROTECTED] wrote: Is there a module out there that I can use to parse a text line and return the pieces that are enclosed in paren's? Yep, a core module name Text::Balanced. Randy. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: How Random is Random?

Phil Schaechter wrote: > > > You will note that the documentation says "apparently random order." In > > more recent versions of Perl (IIRC starting at 5.8.1) randomness was > > added to hash keys for security reasons. In previous versions the order > > of the hash keys was determined by the has

Re: New to Perl

Wc -Sx- Jones wrote: > > Oliver Schnarchendorf wrote: > > By false I mean it isn't set to 1 which equals true. > > These are false (or undefined) - > > 0 > "0" > "" > NULL Perl doesn't have a NULL symbol, you probably meant undef. > Just about everything else is true: > > 1 or greater

nested parens

Is there a module out there that I can use to parse a text line and return the pieces that are enclosed in paren's? Thanks -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: HOT: Search/Replace || and *|

On Fri, 2 Apr 2004 15:19:13 -0800 (PST) LoneWolf <[EMAIL PROTECTED]> wrote: > I have a file that I need to replace the *| and || with just | and can > not seem to get it to go. It either puts in an | every space, or it > puts in multiples of them, how do I fix this? > > here's what I have: The

Re: Hash ref's of hash's

[EMAIL PROTECTED] wrote: > > Hi all, Hello, > I am trying to setup a hash who's values are referance to hash's. Data > structure should look like this > > hash > 1: >setting 1 >setting 2 > 2: >setting 1 >setting 2 > > > I wo

Re: New to Perl

david wrote: this is impossible in Perl. show me an example where something is neither true nor false. you guys are good fish =) 2ff; -Sx- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: New to Perl

On Fri, 2 Apr 2004 14:17:21 -0800 , Bajaria, Praful wrote: > :) the below code works > my $content = $request->content; > print "content: $content\n"; > > but this doesn't work print "content: ".$request->content."\n"; > > Anyways, why do u have to assign to a var and print ? Okay... the us

HOT: Search/Replace || and *|

I have a file that I need to replace the *| and || with just | and can not seem to get it to go. It either puts in an | every space, or it puts in multiples of them, how do I fix this? here's what I have: sub cleanup{ use strict; my $file = "/home/web/sales/info/test/custs1"; my $newfile = "/ho

Re: Help with pattern matching

A Lukaszewski wrote: > > Greetings all, Hello, > I have a comma-delimited lexical file with four fields: line number, the > first part of a word, the second part of a word, and the word combined. > The first and fourth fields are only for reference. The program I am > developing is very simpl

Re: New to Perl

Wc -Sx- Jones wrote: > david wrote: > >>>NULL > >> what do you mean by NULL? >> >> david > > explicit zero (0) or nothing ( or undefined.) > > That is NOT true (it's not false either per se...) > you sound more confuse than your previous reply :-) maybe my question isn't so clear. you said

Re: New to Perl

david wrote: NULL what do you mean by NULL? david explicit zero (0) or nothing ( or undefined.) That is NOT true (it's not false either per se...) -Sx- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Strings with extended characters

[EMAIL PROTECTED] wrote: > > Is there a simple way to reject any string that has extended characters in > it? In other words, only accept the 88 (I think it's 88) regular keyboard > characters and numbers. I can't find a simple way to do this. if ( $string =~ /[^[:print:]]/ ) { print "This st

RE: New to Perl

Oliver, :) the below code works my $content = $request->content; print "content: $content\n"; but this doesn't work print "content: ".$request->content."\n"; Anyways, why do u have to assign to a var and print ? -Original Message- From: Oliver Schnarchendorf [mailto:[EMAIL PROTECT

RE: directory and file operations

WC -Sx- Jones wrote: > MuthuKumar wrote: > > print "Enter a path name: "; > > my $path=; > > chdir($path); > > > chdir never "stays" in the directory... Huh? Sure it does. > > Proof: > > print "Enter a path name: "; > my $path=; > chdir($path); > print `pwd`; That doesn't prove anything. The

Re: New to Perl

Wc -Sx- Jones wrote: > Oliver Schnarchendorf wrote: >> By false I mean it isn't set to 1 which equals true. > > > These are false (or undefined) - > > 0 > "0" > "" > NULL > what do you mean by NULL? david -- s$s*$+/http://learn.perl.org/>

RE: using strict

Guay Jean-SÃbastien wrote: >> Guay Jean-SÃbastien wrote: >>> open (CRITICALSERVERS, "$crout") || die "can't open file \n: $!"; >>> >>> As I said, you should replace || by or in the above line. See the >>> precedence rules in "perldoc perlop" for details. >> >> why do you think so? is there

RE: using strict

Hello Derek, > can I email you from know on??? : ) You are so through! Thank you! No, I would prefer that you always reply to the list. First reason is that other beginners can benefit from our exchange (and the mails end up in a searchable archive), second is that if I'm not there (or for th

RE: New to Perl

On Fri, 2 Apr 2004 12:19:32 -0800 , Bajaria, Praful wrote: > However, when I print > print "content $request->content \n"; I get "content > HTTP::Request=HASH(0x8546b3c)->content" > and print "$response->message \n"; give me "message > HTTP::Response=HASH(0x8546b60)->message" > > Am I doing somet

RE: using strict

Jean, can I email you from know on??? : ) You are so through! Thank you! I now understand the one line code and slurping coding within the array! My reasoning for the array was so that I can only and easily print out specific elements. So do you still suggest just using the while construct

Re: A long time helper needs help

[EMAIL PROTECTED] wrote: Hello Jenda, I am getting weak on regex. Could you please break this down for me/(.*?-?\d+(?:\.\d+)?)/g That is: my @last_line = ($report[-1] =~ /(.*?-?\d+(?:\.\d+)?)/g); # split the last line into fields (including spaces!) Also, why did you use $report[-1

Re: A long time helper needs help

From: <[EMAIL PROTECTED]> > Hello Jenda, > > I am getting weak on regex. > > Could you please break this down for me/(.*?-?\d+(?:\.\d+)?)/g > > That is: > > my @last_line = ($report[-1] =~ /(.*?-?\d+(?:\.\d+)?)/g); # split the > last line into fields (including spaces!) I'm trying to m

Re: New to Perl

Oliver Schnarchendorf wrote: By false I mean it isn't set to 1 which equals true. These are false (or undefined) - 0 "0" "" NULL Just about everything else is true: 1 or greater "00" "any string" -Sx- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTEC

RE: using strict

> Guay Jean-SÃbastien wrote: >> >>> open (CRITICALSERVERS, "$crout") || die "can't open file \n: $!"; >> >> As I said, you should replace || by or in the above line. See the >> precedence rules in "perldoc perlop" for details. > > why do you think so? is there any problem in the above line? The

RE: New to Perl

Thanks for the info. However, when I print print "content $request->content \n"; I get "content HTTP::Request=HASH(0x8546b3c)->content" and print "$response->message \n"; give me "message HTTP::Response=HASH(0x8546b60)->message" Am I doing something wrong here ? Thanks Praful -Original M

Re: Timezone conversion

In a message dated 4/2/2004 3:20:12 AM Eastern Standard Time, [EMAIL PROTECTED] writes: >can someone give me ideas of how I could covert this date and time stamp >that is in GMT to Central time ? > >2004-04-01-19:15:15.525+00:00 In the above case, it would be fine to just subtract the hour offset

RE: using strict

Guay Jean-SÃbastien wrote: > >> open (CRITICALSERVERS, "$crout") || die "can't open file \n: $!"; > > As I said, you should replace || by or in the above line. See the > precedence rules in "perldoc perlop" for details. > why do you think so? is there any problem in the above line? david -- s

RE: using strict

Hello Derek, > Guay, Err, my first name is Jean-Sebastien. My last name is Guay. French-language people have a bad habit to put the last name first, as in "Guay, Jean-Sebastien"... So I understand why this is a bit confusing. > What do you mean when you say "Just use $line inside the while, and

Re: New to Perl

On Fri, 2 Apr 2004 10:53:46 -0800 , Bajaria, Praful wrote: > my $ua = LWP::UserAgent->new; > $url = "http://www.cnn.com";; > $response = $ua->get($url); > if ($response->is_success) { > print "web site is working\n"; > } else { > print "web site is not working\n"; > } > quesion: > 1) i

New to Perl

I have the following code to check the website status. my $ua = LWP::UserAgent->new; $url = "http://www.cnn.com";; $response = $ua->get($url); if ($response->is_success) { print "web site is working\n"; } else { print "web site is not working\n"; } quesion: 1) if the site is not

Re: Using $_ in a function if no argument is passed

On Fri, Apr 02, 2004 at 07:18:25AM -1000, Beau E. Cox wrote: > sub to_upper > { > # point to passed arg or caller's $_ > my $arg = $_[0] ? \$_[0] : \$_; my $arg = @_ ? \$_[0] : \$_; > # modify in place > $$arg = uc $$arg; > } $_ = "Leave me alone!"; $s = "0"; to_upper $s;

Re: Using $_ in a function if no argument is passed

On Fri, 02 Apr 2004 10:37:14 -0600 "JupiterHost.Net" <[EMAIL PROTECTED]> wrote: > It just occurred to me that many Perl functions use $_ if not other > value is supplied. chomp for instance..., which is very handy... > > If one wanted to write a function that used either the given argument > or

Re: Using $_ in a function if no argument is passed

On Friday 02 April 2004 07:04 am, Beau E. Cox wrote: > On Friday 02 April 2004 06:37 am, JupiterHost.Net wrote: > > Hello List, > > > > It just occurred to me that many Perl functions use $_ if not other > > value is supplied. chomp for instance..., which is very handy... > > > > If one wanted to w

Re: Using $_ in a function if no argument is passed

On Friday 02 April 2004 06:37 am, JupiterHost.Net wrote: > Hello List, > > It just occurred to me that many Perl functions use $_ if not other > value is supplied. chomp for instance..., which is very handy... > > If one wanted to write a function that used either the given argument or > $_ how wou

Re: A long time helper needs help

Hello Jenda, I am getting weak on regex. Could you please break this down for me/(.*?-?\d+(?:\.\d+)?)/g That is: my @last_line = ($report[-1] =~ /(.*?-?\d+(?:\.\d+)?)/g); # split the last line into fields (including spaces!) Also, why did you use $report[-1] instead of $report[$

Using $_ in a function if no argument is passed

Hello List, It just occurred to me that many Perl functions use $_ if not other value is supplied. chomp for instance..., which is very handy... If one wanted to write a function that used either the given argument or $_ how would you do that? myfunc($myvalue); or myfunc; #uses the current v

Re: loop using backticks stalls after ~30x

On Fri, 02 Apr 2004 16:22:51 +0200 Martin Lercher <[EMAIL PROTECTED]> wrote: > >ps uf > 2740 pts/7S 0:00 \_ /usr/bin/perl ./t5.pl > 2894 pts/7T 0:00 \_ ls > 2895 pts/7Z 0:00 \_ [ls ] Strange. It looks like ls has forked a copy of itself and is wai

Re: using strict

[EMAIL PROTECTED] wrote: Yet another great explanation... thank you! But I still need to know how to print each specific element # along with its data? Is this the right way to go for storing each line in its own element??? while $line < FILEHANDLE > my @tsm = < FILEHANDLE > foreach $_ (@tsm)

Re: Basic question

Kumar, Praveen (cahoot) wrote: Hi, yes i could solve my problem, but can you let me know what is the difference in using '{' '[' Thank You very much.. {$0} = hash [0] = array Sorry. { indicates a hash [ indicates an array -Sx- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For addition

RE: Basic question

Hi, yes i could solve my problem, but can you let me know what is the difference in using '{' '[' Thank You very much.. Cheers Praveen -Original Message- From: WC -Sx- Jones [mailto:[EMAIL PROTECTED] Sent: 02 April 2004 16:30 To: Kumar, Praveen (cahoot) Cc: '[EMAIL PROTECTED]' Subjec

Re: How to determine if STDIN has piped data?

Daniel Staal wrote: Even better: you can run pod2man on the program/pod file, and end up with a man page. Put that in the standard man search path and the user can type "man $scriptname" as if it were any other unix program. True... Also, make sure you regularly do catman and/or updatedb -S

Re: Basic question

Kumar, Praveen (cahoot) wrote: print "You are $list{$0}\n"; print "You are " . $list[0] . "\n"; Why - {$0} = hash [0] = array -Sx- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: How to determine if STDIN has piped data?

--As of Thursday, April 1, 2004 11:48 AM +0159, Morten Liebach is alleged to have said: Strangely, I find that we almost always want our scripts to act this way. If any files or data is passed to the script, then it uses it. Otherwise, it prints usage instructions (since we'd rather not have man

Basic question

Hello, I am completely new to perl, and i am trying to write a small script, which based on the input given displays the value in an array. But when i try to execute the script i somehow fail saying "Use of uninitialized value in concatenation (.) or string at ./pscr1 line 9, line 1."

Re: using strict

Yet another great explanation... thank you! But I still need to know how to print each specific element # along with its data? Is this the right way to go for storing each line in its own element??? while $line < FILEHANDLE > my @tsm = < FILEHANDLE > foreach $_ (@tsm) print $_ , "\n"; Derek

RE: using strict

Guay, ooops. that would be it! someone's else's eyes are always better! Thanks for the nice explanation! My code is now compiling smoothly! What do you mean when you say " Just use $line inside the while, and you'll read one line at a time." ??? I am doing this, aren't I? FROM GUA

Re: loop using backticks stalls after ~30x

Martin Lercher wrote: #!/usr/bin/perl for (my $j=0;$j<1;$j++) { my $result = `ls` ; print $result ; } >ps uf 2740 pts/7S 0:00 \_ /usr/bin/perl ./t5.pl 2894 pts/7T 0:00 \_ ls 2895 pts/7Z 0:00 \_ [ls ] I don't think that is Perl; the O

Re: Timezone conversion

Distribution Lists wrote: > can someone give me ideas of how I could covert this date and time stamp > that is in GMT to Central time ? > > 2004-04-01-19:15:15.525+00:00 > > Thanks Yes. You can. Look at a map of time zones, or check the offest on any message that is dataed by central time, and

loop using backticks stalls after ~30x

Hi, I'm trying to repeatedly call some external program from Perl using backticks. This works fine for ~30 rounds, but then the program stops doing anything, with a process hanging around (apparently Perl ignores its dead child?). A simple example is this: #!/usr/bin/perl for (my $j=0;$j<1000

Re: My DBI script wont UPDATE a Table!

Paste in your database connect statement. Are you setting RaiseError, PrintError, and AutoCommit? Which database are you using? Are you doing any error checking of DBI statements? And as was just pointed out by someone else, does the user you are connecting with have update permissions in your

RE: My DBI script wont UPDATE a Table!

Do you have rights to update the table on the production database? > -Original Message- > From: Mark Martin [mailto:[EMAIL PROTECTED] > Sent: 02 April 2004 14:53 > To: [EMAIL PROTECTED]; [EMAIL PROTECTED] > Subject: My DBI script wont UPDATE a Table! > > > Hi, > I designed my application

Simple GD perl script cores

Hopefully I have the correct email list for this problem. If not, please direct me elsewhere. One of my developers is trying to use the GD perl modules. For testing, he has written a simple script to convert an image to PNG format, as follows: #!/opt/mntd_sfw/Perl/bin/perl -w use strict; use

My DBI script wont UPDATE a Table!

Hi, I designed my application on a test database and it worked fine without commiting the database handle. But now when I've moved it to the production database my updates wont commit - even when I do issue a commit on the DBH?!?! while(certain condition) { $s

Re: Check if another script running

My appologize for the multiple emails... something went hay-wire with our mail server yesterday.. sending out multiple emails. this question has been resolved,.. thanks to the list for the help :) Mike Jayakumar Rajagopal wrote: -Original Message- From: Mike Blezien [mailto:[EMAIL PROTE

RE: help in find and replacing a string in a number of files

-Original Message- From: senthil prabu [mailto:[EMAIL PROTECTED] Sent: Friday, April 02, 2004 12:55 AM To: Charles K. Clarkson; [EMAIL PROTECTED] Subject: RE: help in find and replacing a string in a number of files Hi, I want to open all (.txt,.html,.js files) files in a particular di

RE: Check if another script running

-Original Message- From: Mike Blezien [mailto:[EMAIL PROTECTED] Sent: Thursday, April 01, 2004 3:16 PM To: Perl List Subject: Check if another script running Hello, I need to setup a cronjob to run a script every 2hrs, but if another particular script(executed via a standard web form),

RE: help in find and replacing a string in a number of files

senthil prabu <[EMAIL PROTECTED]> wrote: [Please post replies to the list and do not top post] : : "Charles K. Clarkson" <[EMAIL PROTECTED]> wrote: : : : : Read the file 'perlrun' included in your perl : : distribution. The section under the -i option gives : : examples of how to do this. : :

Randal's columns (was Re: HOWTO: File Renaming and Directory Recursion)

> "Morbus" == Morbus Iff <[EMAIL PROTECTED]> writes: Morbus> The script was mindlessly simple, and I felt it would be a good HOWTO Morbus> for the perl beginners crowd, if not to show some good code practices, Morbus> but also to counteract the . .. .. . "controversial" HOWTO that had Morbus>

Antwort: Timezone conversion

Hi , I would try to convert your timestamp with localtime ( see perldoc -f localtime ) into separate variables and do the computing myself. But possibly time::localetime suits you and your needs better ??? Mit freundlichen Gruessen / Best regards Manfred Beilfuss Deutsche Vermögensberatung AG

RE: help in find and replacing a string in a number of files

Hi, I want to open all (.txt,.html,.js files) files in a particular directory and replace a text in all that files. What I done so far was a script to replace text in all files in the current directory. What I want was," When I run the script,it should ask for the path of a particular director

Timezone conversion

can someone give me ideas of how I could covert this date and time stamp that is in GMT to Central time ? 2004-04-01-19:15:15.525+00:00 Thanks -- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]