Perl-beginners Mailing List Threads

Sorting and grouping question

Thu, 15 May 2008 17:13:31 GMT

Hi, here is a problem I'm working on. It's not PERL-specific, rather it is a problem in sorting followed by grouping. Suppose I have a set of lines that have tab-delimited text, thus: 1 w 3 wer 2 a 4 rte 4 w 2 weg 6 d 4 fhg 5 d 7 dfl 6 w 4 ald 8 a 3 dsl I would like to first sort the lines based on the 2nd token (w,a, w, d, etc) and then group the lines based on the ...

website

Thu, 15 May 2008 15:43:32 GMT

Does anyone know what happened to this website: http://web.archive.org/web/20041123005900/http://www.raycosoft.com/rayco/support /perl_tutor.html It says its not available. I thought it was a great reference and explained the diffs between map and grep and even sort. Does anyone have a softcopy of its data that you can send me? thank you! -- To unsubscribe, e-mail: beginners-unsubscribe For additional ...

How to get perl (for Windows) with modules like OLE and Spreadsheet and such included

Thu, 15 May 2008 11:20:44 GMT

Hello, Is there someplace I can get perl (for Windows) with modules like OLE and Spreadsheet and such included already ? The PC here is sort of old and it would be neat to just download oerl (w/ modules) and start working vs downloading perl and then downlading/installing module by module. Thank you. -- To unsubscribe, e-mail: beginners-unsubscribe For additional commands, e-mail: beginners-help ...

pushing errors to another sub

Thu, 15 May 2008 00:25:49 GMT

just "bad" pseudo code: sub one { $process->name(\$html) || $errors_from_one( $process->error() ); $process->name(\$text) || $errors_from_one( $process->error() ); } sub errors_from_one { my $error = @_; push (my @errors, $error); # do stuff to make sure the errors are uniq return my @uniq_error_list; } I want to be able to get at those ...

items in array

Wed, 14 May 2008 21:02:21 GMT

what is the correct way to get the number of items in an array? I used to use $#array -- To unsubscribe, e-mail: beginners-unsubscribe For additional commands, e-mail: beginners-help http://learn.perl.org/ ...

faster ways than perl?

Wed, 14 May 2008 20:41:35 GMT

perl and web

Wed, 14 May 2008 16:05:32 GMT

Hi guys again! I am sure this questions been around for while but I am not sure where to begin. I am trying to grep a html page given a URL and then extract some information from the source code. So something like open FH, "www.example.com/index.html | " , or die "no way : $!\n"; @array = ; my $code; while (@array) { next if /bleh/; if ( /^From: (.*)/ ) { ...

newbie question - handling email addresses

Wed, 14 May 2008 15:04:03 GMT

Hi, I'm 100% new to Perl but I've been given a project with it anyway, so I have some pretty basic questions. The script is used to process a form submitted in PHP. I have it working fine, but I need to add an email address field now. i was told that Perl doesn't like the "@" character (which makes sense), and I know that I could use the backslash, but does Perl treat the submitted field as an object, or will I have to add some functionality ...

initialize data permanently

Wed, 14 May 2008 14:48:40 GMT

Hello, I am using Wordnet::QueryData which allow access to a very huge dictionary data. The initialization of object my $wn = WordNet::QueryData->new; took 2 wallclock secs ( 2.36 usr + 0.07 sys = 2.43 CPU) Then the subsequent request for the data is exetremely fast For the lines below took 0 wallclock secs ( 0.00 usr + 0.00 sys = 0.00 CPU) print "Synset: ", join(", ", $wn->querySense("cat#n#7", ...

Suggestion Box in Perl

Wed, 14 May 2008 14:38:33 GMT

Can anyone point me to a source for a form/Perl script for a web-based anonymous suggestion box? Thanks! ____________________________________________________________________ Steve Gross Tel: 212-284-6558 Director of Information Technology Fax: 212-284-6951 www.jesna.org Cell: ...

Script to find FL in CC

Wed, 14 May 2008 11:52:30 GMT

Hello list, I am trying to find Feature Level(FL) of each local replica in one of the ClearCase VOB server with the following script, but the script prints the FL which is not associated with my local replica. Could someone let me know where I am wrong. #!/usr/bin/perl open LOG, ">>/tmp/log.txt" or die $!; chomp(@vobs=`/usr/atria/bin/cleartool lsvob -s -host wrancc`); for $vob (@vobs){ ...

perl 5.8.8 installation

Tue, 13 May 2008 09:27:44 GMT

Dear List I have one sun solaris machine which has installed perl 5.6.1. the details of machine is as follows SunOS MARS 5.9 Generic_118558-09 sun4u sparc SUNW,Sun-Fire-V440 Now I want to install perl 5.8.8 in this machine. Since the machine is a production server I need to very careful about the upgradation of perl. Now my question if i want to upgrade to perl 5.8.8 is there any chance of data loss and how do I upgrade it ...

image compare lib

Tue, 13 May 2008 07:40:43 GMT

is there some lib can do image compare thank you -- To unsubscribe, e-mail: beginners-unsubscribe For additional commands, e-mail: beginners-help http://learn.perl.org/ ...

Log error

Tue, 13 May 2008 06:44:02 GMT

Hi All, I have written once Perl script to perform certain task. In that script I have defined one function to create the log file. The issue is that whenever I am running that script it is executing fine but the moment it reaches to log () function it throws me following error. Can't take log of 0 at /usr/tools/deployment/scripts/merge line 392, line 6 ...

want to assign default value to variable I assign from split but want to know optimal way to get thi

Tue, 13 May 2008 03:39:30 GMT

while () { my($file1,$file2,$file3,$file4,$file5,$file6,$file10,$file25,$file27) = (split( /\|/, $_))[3,4,6,7,12,40,41,42,43,46,56,64] } while doing above, what is the easiest way to make sure all the variable that's being given a value is true and if not assign something default value (such as 'default' or 'X') ? I was doing (after the while loop) $file |= 'default' $file2 ...

Date::Manip

Tue, 13 May 2008 00:01:07 GMT

Can soneone show me how to convert unix time to something else using Date:: Manip? AFter looking at the Docs in perldoc Date::Manip I thought maybe (from the examples) something like script below would work. The first two (now commented) worked as expected but the one with unix date produces a blank line only: #!/usr/local/bin/perl use strict; use warnings; use Date::Manip; my $date; ...

dns error or socket setting make perl module fail?

Mon, 12 May 2008 19:19:30 GMT

I tried this on Friday afternoon - thought I'd try again... I keep running into a brick wall when installing the perl module IO::Socket::SSL. During the install, I get an error message that makes the install fail. The message happens when cpan is running external tests, so it seems like there is some kind of problem with a setting somewhere. I googled the error, I saw that other people have had problems with their DNS ...

log missing images

Mon, 12 May 2008 18:42:15 GMT

I am in the process of logging referring URLs that result in end users being directed to a 4xx error page. What I have noticed is that other items such as a missing CSS, a reference to a non-existing image, etc. that does not necessarily result in the user seeing the 4xx page is still makes an entry in my log file. What I am looking for is a parameter that I can add to my PERL script that will specify the file call that resulted in the ...

database Cgi query's

Mon, 12 May 2008 14:31:39 GMT

lHi All ooking to done some work whit CGI forms in perl, primarily connecting to a database and inserting, deleting and showing values in a database, While looking not to reinvent the wheel, whats out there that I can easily use that would do this for me ? looking at the CGI module... but I think I can mix that up with HTML easly Thanks in advance Pat -- To unsubscribe, e-mail: beginners-unsubscribe For ...

File opening problem

Mon, 12 May 2008 13:06:14 GMT

Hi all! i'm running the following dummy program which just opens a file and I get an error (die message) #!/usr/bin/perl if ( @ARGV[0] eq '' ) { print "\nUSAGE:\n\t genenames.pl genes.txt \n\n"; exit; } my $file = $ARGV[0]; open(FICH,"$file") or die "cannot open $file"; I've tried to pass the input parameter ARGV[0] with / with \ with relative path ... but ...