Re: Installing CPAN Params::Validate and DateTime on Mac OS X 10.6.8

Doubt this would be the problem but I had to run as sudo to install CPAN modules recently??? Otherwise, I would get a permissions issue, but it would say "No such file or directory". Ryan On 10/18/11 11:05 AM, "Madrigal, Juan A" wrote: >Hi Rob, > >I

How to create randomly generated emails

on modules or resources that are good to read up on for automation. Currently, I have a script using modules Net::SMTP, Email::Date::Format, and String Random. The script has static mail from, rcpt to, subject, and body parts while sending a predetermined number of emails. Thanks, --Ryan

Re: need some help with writing a basic program

The full exercise states: Write a program that asks for a decimal number less than 256 and converts it to binary. (Hint: You may want to use the bitwise and operator 8 times.) Since 256 is 2^8, I am assuming using a computation of 2**8 is involved. Ryan On 9/12/11 3:29 PM, "Brandon M

Re: need some help with writing a basic program

I could, but the book also mentions a hint to using the bitwise operator. Loops are still to come. =) Ryan From: Hal Wigoda Date: Mon, 12 Sep 2011 14:07:18 -0500 To: Ryan Munson Subject: Re: need some help with writing a basic program Use a while or for loop On Sep 12, 2011 1:58 PM

need some help with writing a basic program

256: "; chomp(my $dec = ); $dec = $dec < 256; print $dec, "is less than 256! ", "\n"; $dec = oct($dec); print $dec, "is your binary value. ", "\n"; Ryan Munson

Re: Parsing a Text File using regex

Timothy, That worked like a charm. Thank you so much for the help. -Ryan On Thu, Aug 4, 2011 at 4:41 AM, timothy adigun <2teezp...@gmail.com> wrote: > Hi Ryan, > Try the the code below, it should help. > > === > > #!/usr/bin/perl -w > use strict;

Parsing a Text File using regex

Hello, I have been scratching my head on this problem and was wondering if someone can help me out. Basically I need to take a raw list of data (a snippet of it is below my email) and create another file with the information formatted in the following format: "Date: Category: Winner." The example

Strong Type comparsion in Perl

How to do strong type comparsion in Perl, like in PHP e.g. // same type and same value if ($foo === $bar) { } -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Mass value assigment

my ($a, $b, $c, $d, $e) = "test"; How I can assign "test" to all the list items? e.g. $a to $e -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

DBD::mysql::st execute failed: MySQL server has gone away

Hello, Sometimes, my sql is running for a quite long time, e.g. 1 hour The perl script will warn "DBD::mysql::st execute failed: MySQL server has gone away at ..." and my script failed. I have already set the auto reconnect, e.g. $dbh->{mysql_auto_reconnect} = 1; But problem still occur, any

Re: make test fails with Devel::Symdump

I am sorry for repost...I missed some text in my last email. Please read the completed text below. Apologies. On Sun, Jan 25, 2009 at 4:19 AM, paul ryan wrote: > Hi list, > > When I compile Devel::Symdump with /usr/perl5/bin/perl (OS supplied perl) > both make and make test retur

make test fails with Devel::Symdump

Hi list, When I compile Devel::Symdump with /usr/perl5/bin/perl (OS supplied perl) both make and make test return successful result. When I try to compile it with my own customized perl in /usr/local/pkgs/perl-5.10.0/bin/perl make works but make test doesn't succeed. I have observed that these tw

Re: combinations

While I agree that it would be a good homework assignment it's not. What I have is a logic look up table for health records using an EAV model (in an SQL table): rowID - key - value From a web form I select some keys and values. When submitted, I create a new rowID and put in the

combinations

my %data = ( k1 => 'a', k2 => ['b', 'c'], k3 => ['d', 'e', 'f'] k4 => 'a' ); I want to get all the possible combinations: k1 => a k2 => b k3 => d k4 => a k1 => a k2 => c k3 => d k4 => a k1 => a k2 => b k3 => e k4 => a k1 => a k2 => c k3 => e k4 => a k1 => a k

sub alias name

given: sub really_long_function_name_i_do_not_like_to_type {return 'data';} can I create some kind of alias, like real_long_func ? how? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

why is empty hashref true?

my %hash=(test=>{}); print "true\n" if $hash{test}; # prints true How can I tell if it's empty? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

IPC::Open2 and mod_perl

I'm trying to do this under mod_perl2: use IPC::Open2; my $pid = open2(*CHLD_OUT, *CHLD_IN, '/usr/local/bin/prince -'); I've also tried this: use IPC::Open2; my $pid = open2(*CHLD_OUT, *CHLD_IN, '/usr/local/bin/prince', ' - ' ); It works from a normal command line script, but it seems to mess

HTML::TreeBuilder help

The Dump method gives me this: cellpadding="0" cellspacing="0" width="100%"> @0.1.1.0.1.0.0.0.0.1 @0.1.1.0.1.0.0.0.0.1.0 @0.1.1.0.1.0.0.0.0.1.0.0 How can I make use of "@0.1.1.0.1.0.0.0.0.1" if I know that's the element I want? Also i

access values in array of hashrefs

my $HHs=[ {Rx => 'test', key2 => '1st second key' }, {Rx => '2nd1', key2 => '2nd second key' }, {Rx => '3rd1', key2 => '3rd second key' } ]; say join(', ', @{$HHs->{Rx}}); # say all the values of the 'Rx' key in each element of @$HHs. Is there an easy way to do what I

foreach vs for

I know they are both the same, I just want to know why we have both. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: printing sentences on the same line

This approach did the job. Thanks. --Chris Ryan Gunnar Hjalmarsson wrote: Chas. Owens wrote: On Jan 6, 2008 7:48 PM, Ryan <[EMAIL PROTECTED]> wrote: I have a small piece of a program which loops through lines of data, using the construct, one line at a time, and prints differe

printing sentences on the same line

this? Thanks. --Chris Ryan -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

out to keyboard

Here's something I've never done before and I need some help. I want to control a terminal program that is proprietary and Curses and such won't work. So instead I'd like to have my perl program output chars to the keyboard or mouse port on my UNIX machine, which will be plugged into a Win

socket client, can't print w/o newline

first off, i apologize if i'm not describing this as succinctly as possible. i'm working on some client/server stuff using sockets, and i grabbed some code from the net that i don't totally understand. i'm passing packed messages back and forth over a socket from the client/server. Right now i h

fork

Hello, I have this script here: #!/usr/bin/perluse warnings;use strict; print "PID=$$\n"; my $child = fork();die "Can't fork: $!" unless defined $child; if ($child > 0) { # parent process print "Parent process: PID=$$, child=$child\n";} else { # child process my $ppid = getppid(); print

Re: perl default variable question

On 9/18/07, Ryan Moszynski <[EMAIL PROTECTED]> wrote: > thanks, > > so i can just test to see if $_[3] > > exists > > and it kills the warning. > > On 9/18/07, Andrew Curry <[EMAIL PROTECTED]> wrote: > > @_ is the list of incoming parameters to a sub

perl default variable question

hi, i'm using a perl script i found to change the names of batches of files. The program works as is but it's giving me a weird warning. I'm familiar with $_, but not $_[3]. Can someone explain what $_[3] is, and how i can get this script to stop throwning the warning? Thanks,

Precedence?

Hello, I have written this script. I have a good understanding of all but line: $return = ($end - $start) / $start * 100; If I start with 1000, and end with say..900 or vise versa. You subtract first then? Thank You for your help! #!/usr/bin/perl use warnings; $start = 0; $end = 0; $return =

Re: Extreme beginner question on reading lines from a file.

What is a lexical file handle? I'm working my way through Ford's "Perl Programming for the Absolute Beginner" (2007) and Lee's "Beginning Perl" (2004), and they both use the FH style of file handle. Should I do differently? Thanks. --Chris Chas Owens wrote: On 7/19/07, [EMAIL PROTECTED] <

Re: trouble reading subdirectories and files in a directory

I understand the -next- concept, but adding this line made no difference. I got the same output as without it. --Chris yitzle wrote: > 1) There are filesystem modules already out there. > 2) You might want to consider using a more generic recursive structure. > > 3) To answer your question, che

Re: trouble reading subdirectories and files in a directory

Thanks. I was vaguely aware of modules that would do this. Doing it "by hand" at first is a good learning exercise for me. I can indeed check to see if the thing I'm looking at is a directory. But why does it do this? Can you help me understand why when I think I am "in" one directory, my script

trouble reading subdirectories and files in a directory

Running Perl on WinXP I would like to read the subdirectories and their respective files, that I have on my F: drive. They are arranged hierarchically, with a directory for each year, each of which contains a directory for each month, each of which contains files named for days. Like this: F:

Re: freeze after

about that. --Chris Chas Owens wrote: On 6/3/07, Ryan <[EMAIL PROTECTED]> wrote: snip open F, "JunkTestText.txt"; local $/ = "\*\*\*"; my @sections = ; close F; snip When executed, it runs up to and including asking me for input from the terminal. When I enter a value

freeze after

Hello. This is my first post to the List. I am just getting my feet wet with perl, my first programming language. I'm running perl 5.8.4 on Libranet linux, a now-defunct distro based on out-of-date Debian (Sarge or before, I think). I am having trouble inputting a value via . Here is my tro

RE: Perl on Windows Server.

> -Original Message- > From: Adilson P. de Souza [mailto:[EMAIL PROTECTED] > Sent: Wednesday, August 16, 2006 8:08 AM > To: beginners@perl.org > Subject: Perl on Windows Server. > > Hi All > > This is my first post at beginner list. I work with PHP/MySQL and now i > have to modify a apl

Linux

Hello All, I just recently loaded linux onto my laptop. I hope this was not a bad move. But I cannot find the Activstate Perl I downloaded.I am using openSUSE Linux. I also am having trouble deciding which is the command line to open my scripts. There is the : Gnome Terminal, the Konsole, the x

string to perl

I have a string I want to pass to another function and I want that function to evaluate it as perl code: my $str='window.location=" $tableURL ? "$tableURL" : $r->uri . '?' . ($tableKey || $columnsList[0]->{dbName}) . '="+a_marked' sub dothis { my $tableURL='something'; my $

lines?

Hello all, I was wondering if someone could explain lines: 14, 17, 18, 21, 27, and 43 please. I understand the bulk of the script. But to put it all together would better. Thanks so much! 1. #!/usr/bin/perl 2. # hangman.pl 3. use warnings; 4. 5. @words = qw(internet cyber groups information);

RE: Multiple line parameters in parameter file

> -Original Message- > From: Jerry Rocteur [mailto:[EMAIL PROTECTED] > Sent: Wednesday, August 02, 2006 4:59 AM > To: beginners@perl.org > Subject: Multiple line parameters in parameter file > > Hi, > > I've just searched the web and tried the archives but that is down at the > moment.

RE: Major Applications of Perl

> -Original Message- > From: WCJ d/b/a http://ccsh.us/ [mailto:[EMAIL PROTECTED] > Sent: Monday, July 31, 2006 8:59 AM > To: beginners perl > Subject: Re: Major Applications of Perl > > On 7/31/06, Sastry <[EMAIL PROTECTED]> wrote: > > Are there any other major applications using Perl an

more concise

Hello All; I was hoping to write this script in a more concise manner, also eliminate the error I get with it, along with correcting it indexing at only one occurence. Thanks for your help! #!/usr/bin/perl use warnings; print ($TargetString = <; chomp($SearchString); print "\nSearch begun for \"

saving system output as $

is there a way to save the output of a system call as a variable to print later and suppress the initial printing of the output of the call to the terminal?? ### my $keepStat; $keepStat = system "stat $inputScratch"; ## I DON"T WANT THIS TO PRINT #

Re: passing a list as a variable

thanks guys. Dr. Ruud's solution does the trick. I was trying to get around having to do that, but i guess you can't have everything. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: passing a list as a variable

# Argument "0..15,33..43,100..111" isn't numeric in array element ### i guess a better question is, can I ?cast? that string into a variable that can be recognized by the foreach? On 7/24/06, Joshua Colson <[EMAIL PROTECTED]> wrote: On Mon, 2006-07-24 at 12:40 -0400, Ryan Mos

passing a list as a variable

Is there a way to make my commented 'foreach" line act the same as the line above it? Can I pass a list as a variable as I am trying to do, or doesn't perl support that? ### #!/usr/bin/perl -w $|=1; #use strict; system "clear"; my @array = 1024; my $list4 = "0..10,33..43,100..111";

print statement error

Hello All, I have here a script, which all runs well with the exception of the: print "value looks like a city, state, and zip code.\n";. I can type in Upper or Lowercase letters in any combination along with the zip, but I still get the error: "I couldn't figure out what that value is. Can you

RE: Passing a hash to a function

> -Original Message- > From: John W. Krahn [mailto:[EMAIL PROTECTED] > Sent: Tuesday, July 18, 2006 11:48 AM > To: Perl Beginners > Subject: Re: Passing a hash to a function > > Bjørge Solli wrote: > > On Tuesday 18 July 2006 16:45, John W. Krahn wrote: > >>Leonid Grinberg wrote: > >>>su

pattern matching

Hello All, I was studying some pattern matching. And I ran into this piece of code. Now I believe I understand it up until the the last part \1. Can someone explain it for me please? Match lowercase a through z, uppercase A through lc z no more than three times, with white space zero or one times

awesome help, but, a question

Mumia, thanks for your work on answering my help request. I really appreciate it. However, while your solution works perfectly in your sample program, since I am new to perl, I am having trouble understanding some of the techniques you used, and i am having trouble integrating the solution that

regex repetition

d, there has to be a number, then either a '-' or s ';', then repeat or not. the only special case is the first one which could just be a single number, or a number '-'number. I just don't know how to implement it. (#(-||;))(#(-||;))(#(-||;)) thanks, ryan -- To

pattern match

Hello, I had two scripts that were identical, well almost. I ran the two together, but straghtened them out. Anyway I have one here, that when ran say's: Use of uninitialized value in pattern match (m//) at headline.pl line 7 and 10. I have changed differernt things within, nothing worked. It i

Still getting errors

Hello again, I have rewrote this script I hoped the way you told me. And now I have just one error that states: Use of uninitialized value in hash element at names.pl line 24, <> line 1. Forgive me, but I'm not sure what's going on here. #!/usr/bin/perl use warnings; use strict; my %names

RE: write out filenames of files existing on a filesystem into afile

> -Original Message- > From: Mumia W. [mailto:[EMAIL PROTECTED] > Sent: Monday, July 10, 2006 11:55 AM > To: Beginners List > Subject: Re: write out filenames of files existing on a filesystem into > afile > > Randal L. Schwartz wrote: > >> "Rob" == Rob Dixon <[EMAIL PROTECTED]> writ

Which line?

Hello, I have a script here, I have been going over and over. Every time I run it I get several errors, and I have tried to fix them to no avail. Can someone tell me what line I missed, please? Thanks for your help! #!usr/bin/perl use warnings; use strict; %names = (); @raw = (); $fn = "";

processing a hash of a hash of a hash

using code chunk2, and i know that the values I am trying to process exist, as i can print them out, or run the exists/defined/true tests on them as i do here. Where is my mistake? How is this done? thanks fo rlooking at this, ryan - 1 - Use of uninitialized value in

Re: iterate over newlines

sorry for the resend, i made a mistake in the subject line and didn't want anyone folling the thread to miss the resolution. -- Forwarded message -- From: Ryan Moszynski <[EMAIL PROTECTED]> Date: Jul 6, 2006 1:57 PM Subject: Re: beginners Digest 6 Jul 2006 08:41:28

Re: beginners Digest 6 Jul 2006 08:41:28 -0000 Issue 2890

rg Date: Thu, 06 Jul 2006 00:03:27 +0100 Subject: Re: iterate over newlines Ryan Moszynski wrote: Hi Ryan > this is a snippet of a file i'm trying to process: > ### > > iotests ( > WriteEmUp [create:openwr:write:close] > ReadEmUp [openrd:read:close] &g

Re: iterate over newlines

i really hope thats overkill for my problem. I have my program finshed, this is the last condition i have to deal with. Also, my supervisor would prefer me not to use any nonstandard modules. On 7/5/06, Tom Phoenix <[EMAIL PROTECTED]> wrote: On 7/5/06, Ryan Moszynski <[EMAIL PROTECTE

iterate over newlines

a string. I can't count on the whitespace or the new lines being there or not. i read the file into perl with: # open (YIP, "< /home/ryan/code/perl/enzo_fio_tests/output/verify_4MB/fio_enzo_verify_4mbb.inputscratch") || die("No SOUP FOR YOU!!"); L

subroutine

Hello, I have a script here, that when I run it, it gives me this: Can't return outside a subroutine at tire.pl line 14. Can someone help me figure out what I'm doing wrong? Thank You very much for your help! #!/usr/bin/perl # tire.pl use warnings; package CreateTire; sub new { my $tire = {}

error after error

Hello, All I seem to be getting an error I don't quite understand. Can someone point out why I'm geeting this error? The first error states: unquoted string "subroutines" may clash with future reserved word at NPtest.pl line 6. after I quote "subroutines" I get an error that states: syntax err

RE: Script Required to Check a range of IP's

> Here's the same thing but "Perl Best Practice" ified a bit: > > #!/usr/bin/perl > > use strict; > use wanrings; > use Net::Ping; > > die 'Please give me a filename as my argument!' if !defined $ARGV[0]; > open(my $ipfile_fh, '<', $ARGV[0]) || die "Could not open $ARGV[0]: $!"; > > my $icmp =

RE: Script Required to Check a range of IP's

-Original Message- From: Mazhar [mailto:[EMAIL PROTECTED] Sent: Thursday, June 29, 2006 12:51 PM To: Ryan Frantz Cc: Perl Beginners Subject: Re: Script Required to Check a range of IP's On 6/29/06, Ryan Frantz <[EMAIL PROTECTED]> wrote: > -Original Message-

RE: Script Required to Check a range of IP's

> -Original Message- > From: Mazhar [mailto:[EMAIL PROTECTED] > Sent: Thursday, June 29, 2006 11:44 AM > To: Perl Beginners > Subject: Script Required to Check a range of IP's > > Hi Folks, > Howdy, > I have a requirement of writing down a script to check the range of IP's > in > a te

Re: reg ex problem

thanks for the help, that did the trick On 6/27/06, Ryan Moszynski <[EMAIL PROTECTED]> wrote: i have this string extracted from a text file i'm writing a program to process: test_freq = 1.0001; and i have to extract the "1.0001" i can't count on the whitspace

reg ex problem

stead of killing all non digit characters, it will kill all non digit characters except for the period. How do i do this? thanks, ryan -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

RE: CSV file that can be loaded to Microsoft Outlook

> -Original Message- > From: Mihir Kamdar [mailto:[EMAIL PROTECTED] > Sent: Saturday, June 24, 2006 10:41 AM > To: beginners > Subject: CSV file that can be loaded to Microsoft Outlook > > hi, Howdy, > > I have written a perl script whose output is a CSV file(semicolon > seperated) '

subroutine?

Hello; I have a script here, that for some reason I cannot get to print out. Can someone please point out what I may be doing wrong? I know I am going to feel like a Dummy! Thanks so much for your help!! @array1 = (a, b, c,); @array2 = (1, 2, 3,); sub collect { ($value1, $value2) =

RE: Determining Reference Type

> -Original Message- > From: Ryan Frantz > Sent: Friday, June 02, 2006 1:48 PM > To: beginners > Subject: RE: Determining Reference Type > > > > > -Original Message- > > From: Ryan Frantz > > Sent: Friday, June 02, 2006 1:25 PM

RE: Determining Reference Type

> -Original Message- > From: Ryan Frantz > Sent: Friday, June 02, 2006 1:25 PM > To: beginners > Subject: Determining Reference Type > > Perlers, > > I've delving into XML for the first time, bear with me... > > I've constructed a document t

Determining Reference Type

Perlers, I've delving into XML for the first time, bear with me... I've constructed a document type that is modeled after the objects found in the ADSI namespace for an IIS server and there are cases where some objects have multiple instances (new to objects too, so I hope I didn't butcher that t

RE: What are the most successful applications of Perl? Thanks.

> -Original Message- > From: Joshua Colson [mailto:[EMAIL PROTECTED] > Sent: Tuesday, May 23, 2006 1:34 PM > To: JupiterHost.Net > Cc: beginners > Subject: Re: What are the most successful applications of Perl? Thanks. > > On Tue, 2006-05-23 at 10:33 -0500, JupiterHost.Net wrote: > > >

RE: Looking for example Perl scripts to be used in Perl Training.

>-Original Message- >From: Rob Coops [mailto:[EMAIL PROTECTED] >Sent: Monday, May 22, 2006 9:17 AM >To: Ryan Frantz >Cc: beginners@perl.org >Subject: Re: Looking for example Perl scripts to be used in Perl Training. > >Ryan I guess there is a diffrence betw

RE: Looking for example Perl scripts to be used in Perl Training.

> -Original Message- > From: Chandru [mailto:[EMAIL PROTECTED] > Sent: Monday, May 22, 2006 2:23 AM > To: Jeff Pang > Cc: beginners@perl.org > Subject: Re: Looking for example Perl scripts to be used in Perl Training. > > please send it > > -Chandru. > > Jeff Pang wrote: > > Looking f

RE: Grep a variable

> -Original Message- > From: Umesh T G [mailto:[EMAIL PROTECTED] > Sent: Friday, May 19, 2006 8:54 AM > To: Perl Beginners > Subject: Grep a variable > > Hi List, > > I am trying to grep a variable from a scalar value. Here is the example > below. > > $var = "mydisk"; > $line = "mydisk

Re: Parsing HL7 records using Perl

a that has been poorly implemented There is Net::HL7, but that's it. I'm interested in this as well because I've been writing a pharmacy application. Ryan

RE: object-oriented perl mailing list

> -Original Message- > From: Chad Perrin [mailto:[EMAIL PROTECTED] > Sent: Friday, May 12, 2006 2:45 PM > To: beginners@perl.org > Subject: Re: object-oriented perl mailing list > > On Sat, May 13, 2006 at 12:05:46AM +0800, Jeff Pang wrote: > > Don't ask too much,just read and write more

RE: Hide password on console

> -Original Message- > From: SkyBlueshoes [mailto:[EMAIL PROTECTED] > Sent: Friday, May 12, 2006 11:50 AM > To: beginners@perl.org > Subject: Hide password on console > > I've googled it over and over, but I can't find the way to hide the > input of a password on the console screen. I kn

permanently changing @INC

How can I permanently change @INC? I've seen ways to alter this temporarily, but I want to add a directory forever. Ryan -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

RE: pointer to subroutine?

> -Original Message- > From: Bryan R Harris [mailto:[EMAIL PROTECTED] > Sent: Wednesday, May 10, 2006 12:37 PM > To: Beginners Perl > Subject: pointer to subroutine? > > > > I have a little perl calculator tool that folks in our group use for > various > things... One of the routines

hashref ref ref slice

@[EMAIL PROTECTED]>{text} I want to get all the "text" values for a set of keys in a hashref, but the above code always gives me only the first in @sortedkeys. Thanks for any assistance! Ryan -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EM

RE: [OT] I give up with the reply-to business already

> -Original Message- > From: Chad Perrin [mailto:[EMAIL PROTECTED] > Sent: Tuesday, May 02, 2006 4:37 AM > To: Mr. Shawn H. Corey > Cc: Chad Perrin; beginners@perl.org > Subject: Re: [OT] I give up with the reply-to business already > > Please refrain from sending me two copies of an ema

hash keys

Generally, your hash value is larger than you key ( $hash{key}="Some text, maybe a sentence or two"). Is there any reason I should not reverse this relationship? ($hash{"Some text, maybe a sentence or two"}='key') Thanks! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additiona

RE: Modifiaction time of file

> -Original Message- > From: anu p [mailto:[EMAIL PROTECTED] > Sent: Friday, April 28, 2006 11:51 AM > To: beginners@perl.org > Subject: Modifiaction time of file > > Hi, > > I have a requirement where I need to look at the age > of file, if it's older than 2 days, I should remove > i

RE: problem with whitespace not splitting on split.

> -Original Message- > From: Chad Perrin [mailto:[EMAIL PROTECTED] > Sent: Thursday, April 27, 2006 6:14 PM > To: beginners@perl.org > Subject: Re: problem with whitespace not splitting on split. > > On Thu, Apr 27, 2006 at 08:42:51AM -0500, Rance Hall wrote: > > > > some mail readers ar

hashref slices

my $hashref; my @num=qw( 0 1 2 3 4 5 ); @hashref->[EMAIL PROTECTED] = ('one', 'two', 'three', 'four', 'five', 'six'); print join("'\t'", keys %{$hashref}), "'\n"; print join("\t", values %{$hashref}), "'\n"; How do I properly use hashref slices? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For a

audio

I want to write a program that will play an audio file. How can I do this with perl? An external library or program? Thanks! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Data structure key as a literal string

Now I'm confused, what's the difference between a Perl interrupter and a Perl interpreter? Or, what perldoc is that info in? Thanks Mr. Shawn H. Corey wrote: On Thu, 2006-06-04 at 13:10 -0700, Ryan Gies wrote: With the intention of optimization, I am looking for a way around us

Data structure key as a literal string

With the intention of optimization, I am looking for a way around using *eval* in the below snippet at line 19: my $value = eval $key; The objective is to get from $key to $value, knowing that $key is a literal string. Thank you for an insights! #!/usr/bin/perl -w use strict; use Data:

Re: perl script help

Your file should be at: C:/per/lib/Mail/Sendmail.pm Uh, make that: C:/perl/lib/Mail/Sendmail.pm -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: perl script help

If you have sendmail.pm (with a lower-case 's') it surely isn't the same thing as Sendmail.pm (with an upper-case 'S'). The MS Windows PATH environment variable is much different than Perl's @INC. Fortunately for you, your @INC includes C:/perl/lib. Your file should be at: C:/per/lib/Mail/Se

hashref slices

I wanted to use a hash slice, but I'm using a hashref. Can I do both? my @current_Flags=( $hormone . 'DoseCycle', anotherVar, somethingElse ); $flags->[EMAIL PROTECTED]>selectrow_array(qq{$SQLstmt}); #returns an array, $flags is my hashref Thanks! -- To unsubscribe, e-mail: [EMAIL PROTE

RE: Whimsical Question

> -Original Message- > From: Steve Bertrand [mailto:[EMAIL PROTECTED] > Sent: Wednesday, March 29, 2006 9:29 AM > To: beginners@perl.org > Subject: RE: Whimsical Question > > > > > For example, when I see '#!', I read 'shebang' and it rolls off the > > > tongue, but 'dollar underscore'

Whimsical Question

Perlers, I just got a copy of Intermediate Perl (the updated version of Learning Perl Objects, References, and Modules, aka Alpaca) and started reading. I've been coding Perl for about 18 months now and every time I see '$_' I immediately understand its use in the context of the code, but I don't

Re: how to rewind file?

See the function seek (given a file handle) seek($handle,0,0); [EMAIL PROTECTED] wrote: > After I use <> operator on s file handle, I need read it from head again. I > found these is no rewind function, must I close it and open again? > > > --- > Li

RE: pushing csv vaules into hash

> -Original Message- > From: Curt Shaffer [mailto:[EMAIL PROTECTED] > Sent: Thursday, March 09, 2006 10:36 AM > To: beginners@perl.org > Subject: pushing csv vaules into hash > > I am really stuck here. I need to split values from a csv value and push > them into an array, then perform a

RE: mail list via script

> -Original Message- > From: Curt Shaffer [mailto:[EMAIL PROTECTED] > Sent: Tuesday, March 07, 2006 11:21 AM > To: Ryan Frantz; beginners@perl.org > Subject: RE: mail list via script > > > > -Original Message- > From: Ryan Frantz [mailto:[EM

RE: mail list via script

> -Original Message- > From: Curt Shaffer [mailto:[EMAIL PROTECTED] > Sent: Tuesday, March 07, 2006 11:06 AM > To: beginners@perl.org > Subject: mail list via script > > I have a need to mail 1000 users their usernames and passwords, this will > be > a 1 time thing. I was thinking that I

Re: extract words from an array

Scott Ulmen wrote: There must be a better (read shorter) way to do what I did. foreach $singleline (@lines) { my @stuff = $singleline =~ /\b\w*[^aeiou\s]{4}\w*\b/ig; @stuff and print "matched: ", join( ',', @stuff ), "\n"; } The regular expression: /\b\w*[^aeiou\s]{4}\w*\b/ig 1.

Re: Adding ID numbers to names

Ash Varma wrote: Any hint on the J Smith and J Smith Thomas ?? Hmm, good point. I'm sure there are several methods, but the first which comes to mind is to do two replacements... a. sort you list by the length(), processing longer names first b. 1st replacement replaces the all names with

  1   2   3   >