file's MIME type

I found the following in a book when trying to find out the file's MIME type, but it doesn't work. Am I missing something obvious? Thanks. M. code: #!/usr/bin/perl -W use CGI ':standard'; $file = param('music_file'); $info = uploadInfo ($file); $type = $info -> {'Content-Type'}; print "Content-

reading files

Before I upload a file with a random name I would like to make sure that another file with the same name doesn't already exist. Is there a way to look for a specific $name file within a directory (on UNIX). thanks, M _ Protect

Re: Even more regex

Oops! $ perl -e ' @z = qw( 3d20m 5d2h 2h2s ); for $v (@z){ $v =~ s/d/*24*3600 +/; $v =~ s/h/*3600 +/; $v =~ s/m/*60 +/; $v =~ s/s/ +/; chop $v; $k = eval $v; print "$v = $k seconds"; print "\n"; }' 3*24*3600 +20*60 = 260400 seconds 5*24*3600 +2*3600 = 439200 seconds 2*3600 +2 = 7202 seconds But

Re: Even more regex

"John W. Krahn" wrote: > > Dan wrote: > > > > I have a string, which is to represent a length of time, say 3d4h45m12s > > which can be variable, so you may end up with just 3m, or 5h2m, etc. What I > > need to do, is to take this string, and split it up into $days, $hours, > > $minutes etc, and th

Re: Even more regex

Dan > I have a string, which is to represent a length of time, say 3d4h45m12s $ perl -e ' $v = "3d7h36m14s"; $v =~ s/d/*24*3600 +/; $v =~ s/h/*3600 +/; $v =~ s/m/*60 +/; $v =~ s/s//; $k = eval $v; print "$v = $k seconds";' 3*24*3600 +7*3600 +36*60 +14 = 286574 seconds And a question. Can the 4 $v

Re: Problem with Getopt::Std

"R. Joseph Newton" wrote: > print "$stringGoodbye\n"; Whoops--sorry, that should be: print $string . "Goodbye\n"; Joseph -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Even more regex

dan wrote: > Hi again, > > Sorry for firing many questions at you tonight, this one's probably > simple, but I've racked my brains and can't think of anything for > this one. > > I have a string, which is to represent a length of time, say > 3d4h45m12s which can be variable, so you may end up with

Re: an EXPR question

justino berrun wrote: > how would i express some where before/first and some where after/later in a string > for example, if (match this "-key" before this "5L" ){ do the rest... } > on a string that look like so: $string="-key 3345 -door 3432 -5L"; If the only condition you want to specify is t

Re: regular expression

Urmil Shah wrote: > > From: John W. Krahn [mailto:[EMAIL PROTECTED]] > > Urmil Shah wrote: > > > > $str =~s/\s+\bTreal\b\;(\d+\w+)\;/Treal;/g > > > > but not working..any idea > > This might work (not tested): > > $str =~ s/(?<= := Treal;) [+-]?\d+mV;//g > > Yes i tried but not working it give

Re: Even more regex

Dan wrote: > > Hi again, Hello, > Sorry for firing many questions at you tonight, this one's probably simple, > but I've racked my brains and can't think of anything for this one. > > I have a string, which is to represent a length of time, say 3d4h45m12s > which can be variable, so you may end

RE: regular expression

Yes i tried but not working it gives error for (?<= sequence not found, when i remove the ?<= it does nothing.. -Original Message- From: John W. Krahn [mailto:[EMAIL PROTECTED]] Sent: Friday, January 31, 2003 6:06 PM To: [EMAIL PROTECTED] Subject: Re: regular expression Urmil Shah wrote

Re: Even more regex

Dan, Here's my solution. I'm not capturing the days, hours, minutes, seconds as I go, but I'm sure you can see how to if it's really necessary. #!/usr/bin/perl -w use strict; my @list=('3d4h45m12s', '3h', '5h2m'); foreach (@list) { my $seconds=0; my $string=$_; while ($string=~s/(\

Re: regular expression

Urmil Shah wrote: > > I am trying to replace value after say Treal; -200mV; with just Treal; in > the below string > > Strings in a File: > -- > {3504} V125_out_V_5ma_LFL := Treal; V125_out_V_5ma_UFL := > Treal; > {$3505} V125_out_Impedance_UFL := Treal;

Even more regex

Hi again, Sorry for firing many questions at you tonight, this one's probably simple, but I've racked my brains and can't think of anything for this one. I have a string, which is to represent a length of time, say 3d4h45m12s which can be variable, so you may end up with just 3m, or 5h2m, etc. Wh

Re: newbie stuck in a hash

Pam Derks wrote: > > Hi all, Hello, > I have 2 files that contain a filename and # of hits > I've split the contents of these 2 files into %hash1 and %hash2 > I want to find out the difference in the # of hits > can someone shed some light on the approach I should take. > > I've gotten this far

regular expression

I am trying to replace value after say Treal; -200mV; with just Treal; in the below string Strings in a File: -- {3504} V125_out_V_5ma_LFL := Treal; V125_out_V_5ma_UFL := Treal; {$3505} V125_out_Impedance_UFL := Treal; { 4130} Filter_offset_11M_LFL := Tr

Re: Replacing a string in a bunch of files

Richard Fernandez wrote: > > I just had a situation where I needed to replace one string with another > string in 200 files. > This is what I came up with, but I know there has to be a better way. Below > is my code. > > "myfiles" contains a list of the files I need to scrub, one per line. > > -

e: Replacing a string in a bunch of files

Hi Richard. Richard Fernandez wrote: > I just had a situation where I needed to replace one string with > another string in 200 files. > This is what I came up with, but I know there has to be a better way. > Below is my code. > > "myfiles" contains a list of the files I need to scrub, one per lin

Re: More regex required!

Dan wrote: > Hi again, > > Yet another question for you. I string (these are just examples): > > 1) this.is.a.string.to.match.with > 2) this.is.another.string.to.match.with > 3) this.is.a.totally.different.string use strict; use warnings; my @string = qw ( this.is.a.string.to.

RE: More regex required!

dan wrote: > Hi again, > > Yet another question for you. I string (these are just examples): > > 1) this.is.a.string.to.match.with > 2) this.is.another.string.to.match.with > 3) this.is.a.totally.different.string > > Basically, what I want to be able to do, is to carry out match testing > agains

Replacing a string in a bunch of files

I just had a situation where I needed to replace one string with another string in 200 files. This is what I came up with, but I know there has to be a better way. Below is my code. "myfiles" contains a list of the files I need to scrub, one per line. ---8<-8<-

More regex required!

Hi again, Yet another question for you. I string (these are just examples): 1) this.is.a.string.to.match.with 2) this.is.another.string.to.match.with 3) this.is.a.totally.different.string Basically, what I want to be able to do, is to carry out match testing against them, and return just the str

Re: How do I get simple random numbers?

(sheepishly) Thanks. > Perl's random number function is called "rand". > > perldoc -f rand > > my $num = int rand 2 ** $bits; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: How do I get simple random numbers?

On Fri, Jan 31, 2003 at 04:00:49PM -0500, Jamie Risk wrote: > I'm thinking I could open up "/dev/urandom/" but that hardly seems portable. > > "Jamie Risk" <[EMAIL PROTECTED]> wrote in message > b1enfr$evm$[EMAIL PROTECTED]">news:b1enfr$evm$[EMAIL PROTECTED]... > > I'm looking around, and I see "Q

Re: Can't locate object method "Attach" via package "Mail::Sender"

Dan Muey wrote: > > $sender = new Mail::Sender {smtp => "$smtp_serv", from => "$from"}; > the above should be: $sender = new Mail::Sender({smtp => $smtp_serv, from => $from}); you are missing the () david -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL P

Re: How do I get simple random numbers?

I'm thinking I could open up "/dev/urandom/" but that hardly seems portable. "Jamie Risk" <[EMAIL PROTECTED]> wrote in message b1enfr$evm$[EMAIL PROTECTED]">news:b1enfr$evm$[EMAIL PROTECTED]... > I'm looking around, and I see "Quantum::Entanglement" which looks like > overkill; I'd like to generat

How do I get simple random numbers?

I'm looking around, and I see "Quantum::Entanglement" which looks like overkill; I'd like to generate, 8/16/32 bit random numbers. - Jamie -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: newbie stuck in a hash

Thanks much!, I think I've got it now :) Pam >>> "Hanson, Rob" <[EMAIL PROTECTED]> 01/31/03 12:32PM >>> This should do it... my %all_keys = (); foreach my $key (keys %hash1) { $all_keys{$key} = 1; } foreach my $key (keys %hash2) { $all_keys{$key} = 1; } foreach my $page ( sort( keys(%all_

RE: Perl OO - Dynamic method call

Nyimi Jose wrote: > Like in Perl, "Reflection" is also possible in Java: > > http://developer.java.sun.com/developer/technicalArticles/ALT/Reflection/index.html > > Specially the following section interested me : > > Invoking Methods by Name > > So far the examples that have been presented al

RE: newbie stuck in a hash

Pam Derks wrote: > Hi all, > > I have 2 files that contain a filename and # of hits > I've split the contents of these 2 files into %hash1 and %hash2 > > I want to find out the difference in the # of hits > > can someone shed some light on the approach I should take. > > thanks in advance, > Pa

RE: newbie stuck in a hash

This should do it... my %all_keys = (); foreach my $key (keys %hash1) { $all_keys{$key} = 1; } foreach my $key (keys %hash2) { $all_keys{$key} = 1; } foreach my $page ( sort( keys(%all_keys) ) ) { my $diff = $hash1{$page} - $hash2{$page}; my $diff = abs($diff); # remove "-" sign print

newbie stuck in a hash

Hi all, I have 2 files that contain a filename and # of hits I've split the contents of these 2 files into %hash1 and %hash2 I want to find out the difference in the # of hits can someone shed some light on the approach I should take. thanks in advance, Pam I've gotten this far: sample data

Re: uploading files

Here's a sample. The trick is to turn on autoflushing ($|=1;) so that your text gets printed out right away. #!/usr/bin/perl -w use strict; use CGI qw(:standard); $|=1; print header; print start_html; for (my $i=0; $i<100; $i++) { print "."; sleep 1; } print "\n"; print end_html; On Fri

uploading files

Hi, After I click on "submit" and point to the cgi there is a period of time before the cgi finishes running and loads the next page. If the script is simple and takes short amount of time everything is great. But what if that's not the case? What if the script (while uploading a file for exampl

RE: Can't locate object method "Attach" via package "Mail::Sender"

Also I've tried doing msg => "text" and msg => "html" ,respectively, Without using variables that contain the messages, still blank. Withh the above I would expect the email to just say text And when they opened up the html attachment it would just say Html The ultimate goal is to send a person

RE: load modules not in @INC

perldoc lib HTH, José. > -Original Message- > From: Prachi Shah [mailto:[EMAIL PROTECTED]] > Sent: Friday, January 31, 2003 7:50 PM > To: [EMAIL PROTECTED] > Subject: load modules not in @INC > > > Hi, > > I have been using perl on Win32 ssytems so far but now am > switching to Unix

RE: Can't locate object method "Attach" via package "Mail::Sender"

Also, if I remove the Attach section ( which is supposed to attach a gif for the attached html page ), I get a blank email sent to me with a blank attachment called ATT12345.html. It should be an email with a text body and an html page attached with html code in it. Any thoughts?? Thanks Da

Re: load modules not in @INC

"Prachi Shah" <[EMAIL PROTECTED]> wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... > Hi, > > I have been using perl on Win32 ssytems so far but now am switching to Unix. > But, I do not have root permissins on the machine I am using and I am > installing modules in my home directory. I

load modules not in @INC

Hi, I have been using perl on Win32 ssytems so far but now am switching to Unix. But, I do not have root permissins on the machine I am using and I am installing modules in my home directory. I use the PREFIX with the perl Makefile.pl command and everything installs fine. So far so good. But, h

Re: How do I pass a file handle to a subroutine?

Thanks. Knowing where to find the information is usually more than half the battle; I appreciate the 'perldoc' references as well as your precis. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: How do I pass a file handle to a subroutine?

[EMAIL PROTECTED] wrote: > > On Fri, 31 Jan 2003 10:59:17 -0500, "Jamie Risk" > <[EMAIL PROTECTED]> wrote: > >> The question stems from the fact that I don't really know what >> 'type' a file >> handle is; and I'm also confused about what >>open

Can't locate object method "Attach" via package "Mail::Sender"

I'm getting this error from Mial::Sender and am not sure why. Can't locate object method "Attach" via package "Mail::Sender" What should I check/did I miss/am I doign wrong/etc??? Thanks Dan +++ Below is the perl and the output from the script : __SCRIPT__ my $

Re: SendMail Help Needed!

Palm Optins wrote: Hello Everyone, Can someone tell me how to get sendmail to return bounced email to my address. EMAMPLE OF SENDMAIL MAILER open(MAIL,"|$sendmail -t"); print MAIL "From: $email ($first $last)\n"; print MAIL "To: $admin\n"; print MAIL "Reply-To: $email ($first $last)\n"; print

Re: not getting any result...

The error results of useradd appear to go to STDERR instead of STDOUT. You can redirect them to STDOUT, and therefore capture the results, like this: my $username='username'; my $rescmd=`/usr/sbin/useradd -s /bin/false $username 2>&1`; chomp $rescmd; print "Result is $rescmd\n"; On Fri, 2003-01-3

RE: not getting any result...

Martín Alejandro Carmona Selva wrote: > Hello, i am a little more than just a newbie to perl... > I am writting some perlbased XMLRPC to perform actions on my server > as I connect via web. > > i am doing a simple task (adding an user) but, no matter how hard I > try I cannot get the result from t

Re: program logic not right-

> Thus spoke PRADEEP GOEL <[EMAIL PROTECTED]> last [2003-01-31 10:48]: > Dear Senior Programmer Analyst > > did it solves the problem ? > I don't think so . > > there is one very simple logical flow > if ($temp_unit eq 'C' or 'c'){ > should be > if ($temp_unit eq 'C' or $temp_unit eq 'c'){ > that

Re: still needing help

"Paul Johnson" <[EMAIL PROTECTED]> wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... > On Thu, Jan 30, 2003 at 03:25:00PM -0700, Westgate, Jared wrote: > > > Warning: opinionated text follows, so please don't take offense :) > > I didn't see anything from which anyone should take any o

not getting any result...

Hello, i am a little more than just a newbie to perl... I am writting some perlbased XMLRPC to perform actions on my server as I connect via web. i am doing a simple task (adding an user) but, no matter how hard I try I cannot get the result from that command into the variable. Let me put the e

RE: How do I pass a file handle to a subroutine?

On Fri, 31 Jan 2003 10:59:17 -0500, "Jamie Risk" <[EMAIL PROTECTED]> wrote: > The question stems from the fact that I don't really know what 'type' a file > handle is; and I'm also confused about what >open FILEHANDLE > does as opposed to, >

How do I pass a file handle to a subroutine?

The question stems from the fact that I don't really know what 'type' a file handle is; and I'm also confused about what open FILEHANDLE does as opposed to, open FILEHANDLE, $my_file - Jamie (@21 hours of PERL and counting) -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional com

RE: Can I read nonblocking from a FIFO / PIPE?

Angerstein wrote: > Hello there! > > I have a question regarding named pipes (mknod mypipe p). > > I have 2 programmes, one is not opensource nor programmed by me. > The 2. programm is programmed by me. > > The 1. writes into a pipe. > The 2. should read from the pipe. > > So far so good. > >

Re: Sorting Help!!!

kevin r wrote: > This becomes a very long list. From here I would sort and then sequentially > step through the array. If the current line does not look like the last > line the print the last line and the number of times it was counted. The > output looks as follows: > > TCP 80 - 25 > TCP 44

RE: qmail

On Thu, 30 Jan 2003 22:35:12 -0600, "Ron Geringer" <[EMAIL PROTECTED]> wrote: > Is anyone familiar with qmail enough to help me set up a script in perl > using qmail to redirect form information to a hardcoded email address. About > the only thing

lots of $dbh handles

Hi - Is it reasonable to have up to several hundred DBI database handles open and connected in one process? I am running a multi-threaded perl (5.8) server and would like thread-by-thread access to severl databases; the current threading module does not allow complex structures (like dbhs) to be d

Re: harness test failed

Le Fri, Jan 31, 2003 at 11:19:21AM +, Desmond Coughlan a écrit ... > I'm installing perl 5.8.0 on a friend's machine, and at the 'make test' > phase, I see that the test harness in ../t has failed. > > make install runs anyway (so far) ... could someone indicate whether this > particular a

harness test failed

Hi, I'm installing perl 5.8.0 on a friend's machine, and at the 'make test' phase, I see that the test harness in ../t has failed. make install runs anyway (so far) ... could someone indicate whether this particular aspect of the test is likely to cause problems and (if necessary), how to fix it

Re: still needing help

"R. Joseph Newton" <[EMAIL PROTECTED]> wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... > Ron Geringer wrote: > > > This is your script - which I put in the cgi-bin > > > > /usr/bin/perl > > No, it is not. His script had a script header of: > > #!/usr/bin/perl > > Which is a comment

Re: Graphing Data

try rrdtool. www.rrdtool.org. can be hard to setup much _so_ good once it is going. you can do anything with it On Fri, Jan 31, 2003 at 04:58:12 -0500, Scott, Joshua wrote: > Hi everyone, > > I'm starting to write a script which gathers the output of the SAR command > from Linux and does somethi

RE: Graphing Data

Check out the GD module. I think it does what you want. It takes your input and outputs a graph in PNG format. -Original Message- From: Scott, Joshua [mailto:[EMAIL PROTECTED]] Sent: Friday, January 31, 2003 1:58 AM To: '[EMAIL PROTECTED]' Subject: Graphing Data Hi everyone, I'm star

RE: Perl OO - Dynamic method call

Yes ! $obj->$method($args); Seems to be equivalent to this in Java: Object retobj = meth.invoke(methobj, arglist); Like in Perl, "Reflection" is also possible in Java: http://developer.java.sun.com/developer/technicalArticles/ALT/Reflection/index.html Specially the following section interested

Graphing Data

Hi everyone, I'm starting to write a script which gathers the output of the SAR command from Linux and does something with it. Can anyone recommend an simple way to gather specific data and output it to some kind of graph? The SAR command in Linux can output in a delimited format. Once I decide

File instead of here doc as my input

When, as follows, use a script that draws upon Perl::Tidy Win 2k. (using here doc in the script) The $source gets printed on stdout just fine the block comes out indented. But, what's between the EOM, I put into c:\pltidytst.pl And I need howto help for: 1. as I not yet get it to pull from that

Re: Can I read nonblocking from a FIFO / PIPE?

On Friday 31 Jan 2003 8:56 am, Angerstein wrote: > Hello there! > Sorry, if you get this mail two time. > > I have a question regarding named pipes (mknod mypipe p). > > I have 2 programmes, one is not opensource nor programmed by me. > The 2. programm is programmed by me. > > The 1. writes into a

XML::Parser, getting parent from the char_handler

Hello, Another XML-question. When the char_handler in XML::Parser is called it's easy to find which element that called it, but is there an easy way to tell the parent of the calling element? Regards, Nils-Anders -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [

Re: help me to replace ascii character with some other ascii character or text

"R. Joseph Newton" wrote: > Perhaps the author was using the '97 version, and had not bothered to recheck his prejudices in the last three years. > > Joseph Given the page is dated January 16th, 1998, you may be right. I am no Microsoft basher. In fact I have an MCSE cert and I used to work with

Re: Help installing Perl and Perl Modules on Mac OS X

Sorry, won't happen again. On Thursday, January 30, 2003, at 10:09 AM, [EMAIL PROTECTED] wrote: Please be sure to always group reply. On Thu, 30 Jan 2003 09:12:15 -0600, Eduardo Cancino <[EMAIL PROTECTED]> wrote: As I recall installing Perl Mo

Can I read nonblocking from a FIFO / PIPE?

Hello there! Sorry, if you get this mail two time. I have a question regarding named pipes (mknod mypipe p). I have 2 programmes, one is not opensource nor programmed by me. The 2. programm is programmed by me. The 1. writes into a pipe. The 2. should read from the pipe. So far so good. The p

Re: Problem with Getopt::Std

Pedro Antonio Reche wrote: > chop($program); Don't use chop. Use chomp. I suppose there are some contexts in which the use of chop would be appropriate, but there is also a good chance that is is cutting off critical data, since it arbitrarily shortens the string by one character, regardl

RE: Need help

hi, make sure that u have 755 permission to the test directory under cgi-bin and then try -- km - On Wed, 29 Jan 2003, Dan Muey wrote: > > Don't forget to post to list and not just the orginal sender!! > > > > Dan: > > > > except that I ran the same script on

Can I read nonblocking from a FIFO / PIPE?

Hello there! I have a question regarding named pipes (mknod mypipe p). I have 2 programmes, one is not opensource nor programmed by me. The 2. programm is programmed by me. The 1. writes into a pipe. The 2. should read from the pipe. So far so good. The problem is if the first programm can´t w