Re: Pattern Variable & Regexp Operators

[EMAIL PROTECTED] wrote: Can someone please tell me, why my $pattern = /stuff/; That is short for: my $pattern = $_ =~ m/stuff/; Which assigns 1 to $pattern if the match succeeded or '' if it failed. $x =~ $pattern; Which means that this is either: $x =~ /1/; Or: $x =~ //; or my $pattern = "/stuf

Re: Checking if URL is on a list.

Hi, J77, Your question is not exactly clear, but I will try to answer what *I* think you are asking. First, I will assume that you have a list of web sites with and without "http://www."; that you want to index like so: http://www.microsoft.com http://ibm.com www.ebay.com yahoo.com Second, I wil

Re: Pattern Variable & Regexp Operators

[EMAIL PROTECTED] wrote: Can someone please tell me, why my $pattern = /stuff/; $x =~ $pattern; or my $pattern = "/stuff/"; $x =~ $pattern; don't work the same as $x =~ /stuff/; That's best explained in the docs. Start reading: perldoc perlrequick perldoc perlop (the m// operator) After hav

Pattern Variable & Regexp Operators

Can someone please tell me, why my $pattern = /stuff/; $x =~ $pattern; or my $pattern = "/stuff/"; $x =~ $pattern; don't work the same as $x =~ /stuff/; ? Thank you for your help! Jack -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: how do I handle filenames that have parens?

> "Luke" == Luke Bakken <[EMAIL PROTECTED]> writes: Luke> The simple solution is to be sure that single quotes are around the Luke> strings passed to the "describe" command: >> my $results = `$ct describe '$line' | $grep $label`; And of course fails if you have filenaems that have single quo

Abhijit Aklujkar/BTC/MS/PHILIPS is out of the office.

I will be out of the office starting 08/09/2004 and will not return until 08/16/2004. I will respond to your message when I return. If you have any urgent need please get in touch with Arun Nanda ([EMAIL PROTECTED]) for help. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional comm

Re: sort using <=>

[EMAIL PROTECTED] wrote: I am trying to sort a data file on field 3 that looks like: 08/09/0411:02:43E4 08/09/0411:02:43E01220 ... My question is how do I combine the two print FOO statements so that I am still splitting fields 0,1,5 while sorting on field 5, or

Re: read multi-line banner w/ IO::Socket

On Aug 13, Jeff 'japhy' Pinyan said: > use IO::Select; > > my $s = IO::Select->new; > $s->add(\*SMTP_HANDLE); > > # 0 = timeout (return immediately if nothing waiting) > while (my ($pending) = $s->can_read(0)) { Ok, a timeout of 0 seconds is a WEE bit small. Make it .1 or something a little

Re: read multi-line banner w/ IO::Socket

On Aug 13, Jeremy Kister said: >I'm stumped on how to read from a filehandle, where I don't know how many >lines are waiting for me. You probably want to use IO::Select. >Is there a way to tell if i have data in <$sock> waiting for me, without >actually reading from the file handle (which could

sort using <=>

hello perl , I am trying to sort a data file on field 3 that looks like: 08/09/0411:02:43E4 08/09/0411:02:43E01220 08/09/0411:02:43E00820 08/09/0411:02:43E01001 08/09/0411:02:43E00712 08/09/04

read multi-line banner w/ IO::Socket

I'm stumped on how to read from a filehandle, where I don't know how many lines are waiting for me. Consider this: mickey> telnet a.mx.example.com 25 Trying 10.0.0.1... Connected to a.mx.example.com. Escape character is '^]'. 220-a.mx.example.com ESMTP 220- EXAMPLE.COM does not authorize the use

Re: set operations on arrays

thank you both, that was just what i was looking for. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: awk like question

Errin Larsen wrote: > ok. I'm not getting my question across clearly. Let me try again. > > I have a collection of data in a text file. Here is an example: > > ## foobar.txt ## > one two three > A B C > yes nomaybe > > In a script (not on the command line) I want to be able to

Re: awk like question

#!/usr/bin/perl use strict; open FH "filename.txt"; my %myhash = (); while (my $line = ) { if ($line =~ /(\S+)\s+(\S+)\s+\S+.*/) { $myhash{$1} = $2; } } ... __END__ -David On Fri, 13 Aug 2004 12:05:16 -0500, Errin Larsen <[EMAIL PROTECTED]> wrote: > ok. I'm not getting my question across

Re: Here is the URL for Beginning Perl

Chris Devers wrote: Go back to the original telnet line, establish a connection, and then type one word, followed by hitting the enter key twice. (Did you see how CGI scripts have to terminated headers with "\n\n" ? Hitting return twice is the same thing.) This should bring back a response from

Re: Here is the URL for Beginning Perl

Chris Devers wrote: Ok, that changes things. So then, this is Apache? Running on ...Linux? OSX? Windows? Other? Linux Mandrake 9.1 on an IBM laptop with multiple boot options (e.g. Windows 2000 a.k.a. NT 5). The first thing to do is figure out if your web server is up, running, listening, and

Re: awk like question

ok. I'm not getting my question across clearly. Let me try again. I have a collection of data in a text file. Here is an example: ## foobar.txt ## one two three A B C yes nomaybe In a script (not on the command line) I want to be able to parse this data so that the first two el

One word

I have a DBI script to extract information via ODBC from a MSSQL server. I can get everything I need BUT on one returned value $mso in the following script I want to match one word. It is always MS0?-??? .How can I go about doing this? SAMPLE MS0?-??? ENTRY

Re: awk like question

please cc the list On Fri, 2004-08-13 at 17:21, Errin Larsen wrote: > ok ... let's say I have an array composed of strings like this: > > ## foobar.txt ## > one two three > A B C > yes nomaybe > > ## Perl Script ## > #!/usr/bin/perl > use strict; > use warnings; > my @myarray = `

Re: using tie on a hash of anonymous arrays

From: Rob Benton <[EMAIL PROTECTED]> > Is this possible? I know what I have below won't work. > > == > use DB_File; > > my %hash; > tie(%hash, "DB_File", undef, O_RDWR|O_CREAT, 0640, $DB_BTREE) or die > $hash{1} = [ 2, 3, 4

Re: Web Application with PERL or ASP.NET

From: "perl.org" <[EMAIL PROTECTED]> > On Tue, 10 Aug 2004 12:36:30 -0700 (PDT), Joe Echavarria wrote > > Hi there, > > > > The company i work is considering two tools for the > > web version of a loan system. I need to prove that > > perl is better that ASP.NET for the project. Can > > anyone

Re: Strange phenomena with Mime::Lite

Bob Showalter <[EMAIL PROTECTED]> writes: > You misspelled "Disposition" Muttering ...Egad... while slinking away.. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: awk like question

On Fri, 2004-08-13 at 16:51, Errin Larsen wrote: > um, can anyone explain the 'print' function below to me? > > specifically ... this: > > 'print "@F[0,5]"' The -a signal splits the input lines and stores the resulting elements in @F Example: perl -nae 'print "$F[1]\n"' file.txt where file.

Re: awk like question

On Aug 13, Errin Larsen said: >um, can anyone explain the 'print' function below to me? > >specifically ... this: > > 'print "@F[0,5]"' perldoc perlrun The @F array is created when the -a commandline switch is used in conjunction with -n or -p. Read 'perlrun' to find out more. -- Jeff "jap

Re: awk like question

um, can anyone explain the 'print' function below to me? specifically ... this: 'print "@F[0,5]"' How do I use this idea in a script instead of a command line? also, how is the input getting into this function? I mean, I understand $_ and all, but on a command line, are we piping to that com

Re: Here is the URL for Beginning Perl

On Fri, 13 Aug 2004, hcohen2 wrote: Chris Devers wrote: Ok, that changes things. So then, this is Apache? Running on ...Linux? OSX? Windows? Other? Linux Mandrake 9.1 Ok, knowing that that makes things easier. If you're on an operating system with a command line, try this (the lines you type wil

Re: Here is the URL for Beginning Perl

On Fri, 13 Aug 2004, hcohen2 wrote: Chris Devers wrote: OK, my problem is that the attempt to connect using 127.0.0.1 gets a message something like connection refused by the server. Is there some location in the httpd.conf file to list an acceptable client? Is the web server running on your des

Re: Here is the URL for Beginning Perl

> > > I am sure the server is running, but typing in the ip address keeps > getting me a connection refused message. Hence, I think somewhere I need > to make myself an acceptable client. > Can you ping 127.0.0.1 or access ftp through that IP. If so, it probably is an http configuration. If not,

RE: how do I handle filenames that have parens?

> The error message: > sh: -c: line 1: syntax error near unexpected token `(' > sh: -c: line 1: `/usr/atria/bin/cleartool describe \ > /very_long_path/lang/menu_chinese(taiwan)_taiwan.950.vim | \ > /bin/grep specified_label' > sh: -c: line 1: syntax error near unexpected token `(' > sh: -c: line 1

RE: BACK button in CGI

Thank you all. JavaScript history.go(-2) works like a charm. Urmil -Original Message- From: Charles K. Clarkson [mailto:[EMAIL PROTECTED] Sent: Friday, August 13, 2004 7:54 AM To: Shah, Urmil; [EMAIL PROTECTED] Subject: RE: BACK button in CGI From: Shah, Urmil

dyld: /usr/bin/perl Undefined symbols:

I am currently using MacOSX10.3.5 and Perl 5.8.1. Shell scripts and perl files that once worked before upgrading the OS a couple of times are failing and reporting the stuff below. Anyone have a clue? dyld: /usr/bin/perl Undefined symbols: _PL_curpad _PL_markstack_ptr _PL_na _PL_op _PL_stack_b

Re: Here is the URL for Beginning Perl

Chris Devers wrote: OK, my problem is that the attempt to connect using 127.0.0.1 gets a message something like connection refused by the server. Is there some location in the httpd.conf file to list an acceptable client? Is the web server running on your desktop? Yes or no? Yes, it's on this

Re: Translate sed / Perl

Thx ... That is exactly what I was looking for! I was really only missing the '..' part. Thanks again! --Errin On Fri, 13 Aug 2004 06:46:08 -0700, John W. Krahn <[EMAIL PROTECTED]> wrote: > Errin Larsen wrote: > > Hey guys (and gals, I imagine!), > > Hello, > > > I'm really new to perl. I've

Re: awk like question

Thanks too all who passed some knowledge on, but I ended up using : while () { ## look for 9840S and ebexpire ## declare OFS = tab ## tell split to split on IRS 0,1&5. very similar to awk print $ if (($_ =~ /9840S/) && ($_

Re: Translate sed / Perl

Errin Larsen wrote: Hey guys (and gals, I imagine!), Hello, I'm really new to perl. I've been working through some beginners tutorials and now I need (want!) to use perl to overhaul something I wrote in the past. I've got a script (in bash) that I use that has a particular sed command in it. The

Re: Translate sed / Perl

Hi Errin, Try something like this: #!/usr/bin/perl use strict; my $file = 'filename'; open FH "<$fh"; my $text = ""; while (my $line = and $line !~ /System Temperatures/) {} while (my $line = and $line !~ /==*/) { $text .= $line; } print $text; __END__ It may not be elegant, but it should wor

Re: Translate sed / Perl

Hi, Am Freitag, 13. August 2004 15:19 schrieb Errin Larsen: > Hey guys (and gals, I imagine!), > > I'm really new to perl. I've been working through some beginners > tutorials and now I need (want!) to use perl to overhaul something I > wrote in the past.  I've got a script (in bash) that I use t

Re: PERL and Mobile Devices.

On Aug 10, 2004, at 3:35 PM, JupiterHost.Net wrote: I remember hearing some cell phones had perl and maybe PDA's??? Really? I would be very interested to know what cell phone that is... Perl has a pretty big overhead compared to what mobile devices offer. I've seen ports for Windows CE and the S

Re: Translate sed / Perl

On Aug 13, 2004, at 8:19 AM, Errin Larsen wrote: Hey guys (and gals, I imagine!), Hello. I'm really new to perl. I've been working through some beginners tutorials and now I need (want!) to use perl to overhaul something I wrote in the past. I've got a script (in bash) that I use that has a partic

Translate sed / Perl

Hey guys (and gals, I imagine!), I'm really new to perl. I've been working through some beginners tutorials and now I need (want!) to use perl to overhaul something I wrote in the past. I've got a script (in bash) that I use that has a particular sed command in it. The command is as follows: s

Re: How to read data from and Excel File

On Aug 11, 2004, at 1:02 PM, jason corbett wrote: Do I need to have a special module to open/read an Excel spreadsheet, parse it, etc.? It's sure a LOT easier with a module. I would definitely go that way... I am trying to figure out if one is needed and what module is recommended. I went on CPA

Re: Here is the URL for Beginning Perl

Please send *all* replies to the list, not me directly. Thanks. On Fri, 13 Aug 2004, hcohen2 wrote: http://learn.perl.org/library/beginning_perl/ Oh, ok, I wasn't familiar with that one. OK, my problem is that the attempt to connect using 127.0.0.1 gets a message something like connection refused

Here is the URL for Beginning Perl

http://learn.perl.org/library/beginning_perl/ I have been taking the pdf's down and working my way through the book. What I do not like are the large number of mistakes, typos the sometimes make it difficult. Moreover, this is an old book circa 2000 with a new copy just now appearing. Persona

RE: BACK button in CGI

From: Shah, Urmil wrote: : This is a very basic question but still confusing me : and so trying to get help. : : : : I have 3 CGI FORMS that display HTML output. One : form leads to second and second leads to third. On : 3rd page If I want to redirect the user to page

Re: awk like question

[EMAIL PROTECTED] wrote: All, Hello, wasn't sure if this was received b/c I got a reurne to sender error. How can I print certain fields delimited by ' '? In awk I would write awk '{print $1, $6}' filename The Perl equivalent of that is: perl -lane 'print "@F[0,5]"' Here is an out file that I wan

Re: Perl compiled or interpreted?

On Fri, 13 Aug 2004, Jeff 'japhy' Pinyan wrote: On Aug 13, Anish Mehta said: I have some doubts on whether perl is compiled or interpreted. Can someone explain what are the files generated when we run a perl program. I mean if it is both compiled and interpreted then what is the process. A Perl

Re: Perl compiled or interpreted?

On Aug 13, Anish Mehta said: >I have some doubts on whether perl is compiled or interpreted. Can >someone explain what are the files generated when we run a perl program. > I mean if it is both compiled and interpreted then what is the process. A Perl program's source code is compiled into an in

Perl compiled or interpreted?

Hello !, I have some doubts on whether perl is compiled or interpreted. Can someone explain what are the files generated when we run a perl program. I mean if it is both compiled and interpreted then what is the process. Your suggestions are welcomed. Thanks in advance. Rgds, A+ -- To unsubscri

Re: set operations on arrays

On Aug 11, Christopher J. Bottaro said: >is it possible to do set opperations on arrays? any cpan module or >anything? i want to do something like the following: > >@intersection = set_intersection(@ar1, @ar2, @ar3); >@ar1 = set_difference(@ar1, @intersection); >@ar2 = set_difference(@ar2, @inte

RE: Strange phenomena with Mime::Lite

Harry Putnam wrote: > I'm not very experienced with perl and especially Mime::Lite > but I see a strange phenomena here I cannot explain without some help: [snip] > Dispostion =>'attachment', You misspelled "Disposition" -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional command

RE: Splitting colon delimited file in sub

William Paoli <[EMAIL PROTECTED]> wrote: : What is this doing? Very little. See below. : sub data_file { : open FILE, "colon-delimted.txt"; Always verify I/O operations. my $file = 'colon-delimted.txt'; open FH, $file or die qq(Cannot open "$file": $!); : while ( my $line = ) {

Re: field printing like awk

[EMAIL PROTECTED] writes: > All, > > How can I print certain fields delimited by ' '? > In awk I would write awk '{print $1, $6}' filename > > Here is an out file that I want to grab data from : > > 04/29/04 11:00:28 [ 6687:ebexpire, [EMAIL PROTECTED] E00796 9840S 537 > 2B0234233543E6A4 > 0

Re: set operations on arrays

On Wed, 2004-08-11 at 18:13, Christopher J. Bottaro wrote: > is it possible to do set opperations on arrays? any cpan module or > anything? i want to do something like the following: Yes, it is possible. http://search.cpan.org/~muenalan/Class-Maker-0.05.18/Maker/Examples/Array.pm or, if you're

RE: awk like question

<[EMAIL PROTECTED]> asked: > How can I print certain fields delimited by ' '? > In awk I would write awk '{print $1, $6}' filename In Perl, that would be perl -lane 'print "$F[0] $F[1] $F[5]"' filename See the perlrun manpage about all of the command line switches. Here I use -e - run P

RE: how to embed c code in perl programs

Karthick <[EMAIL PROTECTED]> asked: > Is it possible to embed C/C++ codes into perl programs. > (Actually I want to make use of an API, that could be used > with with C). It's not exactly simple, but with h2xs you can create a Perl module out of standard C libraries. Well, h2xs creates the modul

RE: How to read data from and Excel File

Hi there You can check this http://search.cpan.org/~kwitknr/Spreadsheet-ParseExcel-0.2603/ParseExcel .pm the modules for excell are in Spreadsheet (for the search) -Original Message- From: jason corbett [mailto:[EMAIL PROTECTED] Sent: 11 August 2004 19:03 To: perl beginners Subject:

RE: checking all pieces of split data for NULL

use "perldoc -f length" try "perldoc perldoc" how to use perldoc -Original Message- From: Radhika Sambamurti [mailto:[EMAIL PROTECTED] Sent: Wednesday, August 11, 2004 11:16 PM To: [EMAIL PROTECTED] Subject: Re: checking all pieces of split data for NULL Hi, Just for extra informa

RE: how to embed c code in perl programs

> -Original Message- > From: Karthick [mailto:[EMAIL PROTECTED] > Sent: Friday, August 13, 2004 9:17 AM > To: [EMAIL PROTECTED] > Subject: how to embed c code in perl programs > > > Hi, > Is it possible to embed C/C++ codes into perl programs. > (Actually I want to make use of an API, t

Re: how to embed c code in perl programs

On 13 Aug 2004, at 08:16, Karthick wrote: Is it possible to embed C/C++ codes into perl programs. (Actually I want to make use of an API, that could be used with with C). You could try XS or Inline::C

Re: awk like question

On Wed, 2004-08-11 at 16:08, [EMAIL PROTECTED] wrote: You can do it in awk and translet it to perl with a2p > All, > > wasn't sure if this was received b/c I got a reurne to sender error. > > > How can I print certain fields delimited by ' '? > In awk I would write awk '{print $1, $6}' filenam

how to embed c code in perl programs

Hi, Is it possible to embed C/C++ codes into perl programs. (Actually I want to make use of an API, that could be used with with C). Thanks in Advance, Karthick.S - Do you Yahoo!? New and Improved Yahoo! Mail - 100MB free storage!

GD make test fails

I am having problems with GD-2.16 and I have been Google'ing for a while now without finding anything that applies to my problem. I have solved the first hurdle I had with undefined symbol: libiconv. Seems that libiconv should be compiled with '--without-libiconv-prefix' or else gdlib-config --libs

Re: PERL and Mobile Devices.

Joe Echavarria wrote: Hi there, Hello, can i write applications with perl for mobile devices , if it has perl on it or you can create a standalone version that will run on it, sure I remember hearing some cell phones had perl and maybe PDA's??? HTH :) Lee.M - JupiterHost.Net -- To unsubscribe

Re: Checking if URL is on a list.

In a message dated 8/10/04 4:15:12 PM Eastern Daylight Time, Jimstone77 writes: > I am not entirely sure I follow but does this do it? > > if ($siteurl2 =~ /^(?:www.)?$FORM{'siteurl'}\/?$/) { >print "Matched"; > } > > Aka optionally 'www.' followed by the submitted URL, with an optional > t

Re: Web Application with PERL or ASP.NET

Well, is a loan system for car dealers dealing with new and used cars..., the system must have a control of cars inventory, associate each car with the customer loan, balances, interes, capital of the loand, etc. --- Chris Devers <[EMAIL PROTECTED]> wrote: > Hi. > > > On Tue, 10 Aug 2004, Joe

RE: PERL and Mobile Devices.

From: Joe Echavarria wrote: : Hi there, : : can i write applications with perl for mobile : devices , Applications for mobile devices can be written in perl. I don't know if _you_ can write them. :) HTH, Charles K. Clarkson -- Mobile Homes Specialist 254 968-

Re: PERL and Mobile Devices.

--As of Tuesday, August 10, 2004 12:54 PM -0700, Joe Echavarria is alleged to have said: can i write applications with perl for mobile devices , --As for the rest, it is mine. Define 'mobile devices'... Daniel T. Staal --- This email c

Re: Net::FTP Help !

the raw list returned from ftp server is something like this: drwx--x--x5 529 529 4096 Mar 10 13:56 .. -rwxr-xr-x1 529 529 8504 Mar 11 14:44 aboutus.html drwx--x--x4 529 529 4096 Mar 11 13:54 cgi-bin those lines start with 'd' are directories

field printing like awk

All, How can I print certain fields delimited by ' '? In awk I would write awk '{print $1, $6}' filename Here is an out file that I want to grab data from : 04/29/04 11:00:28 [ 6687:ebexpire, [EMAIL PROTECTED] E00796 9840S 537 2B0234233543E6A4 04/29/04 11:00:28 [ 6687:ebexpire, [EMAIL PR

BACK button in CGI

This is a very basic question but still confusing me and so trying to get help. I have 3 CGI FORMS that display HTML output. One form leads to second and second leads to third. On 3rd page If I want to redirect the user to page 1 how do I do that. I tried to use JavaScript history.back() fu

Re: checking all pieces of split data for NULL

Hi, Just for extra information, I am interested in understanding how the if (grep length == 0, @arrayname) works. Or perhaps I could be pointed to some documentation ie perldoc where i could find out more about is it the length function? works. thanks, radhika > while () { > chomp; > m

Re: checking all pieces of split data for NULL

Jeff 'japhy' Pinyan wrote: On Aug 10, Tim McGeary said: Jeff 'japhy' Pinyan wrote: my @field_names = qw( ID name_f name_l email id contact group member ); my %long_names; @[EMAIL PROTECTED] = ( 'ID', 'First Name', 'Last Name', 'Email Address', 'id', 'Contact', 'Group', 'Member', ); whi

RE: Web Application with PERL or ASP.NET

> I need to prove that perl is better that ASP.NET for the project. This is like comparing apples and granola bars. Perl is a language and ASP.Net is a framework. What you should really be doing is comparing Perl vs. C# (or VB.Net). ASP.Net (and /Net in general) is a powerful tool, and although

Strange phenomena with Mime::Lite

I'm not very experienced with perl and especially Mime::Lite but I see a strange phenomena here I cannot explain without some help: This script is taken largely from the examples in Mime::Lite and has had the email addressess rewritten: #!/usr/local/bin/perl -w use MIME::Lite; @

how do I handle filenames that have parens?

Hi; I have two perl scripts. Once calls the other via a ClearCase setview context (like a subshell). The problem: The current scripts do not handle filenames that have parens properly and the parens are obviously mishandled by the shell. The overall goal: What I'm really trying to do is to ge

set operations on arrays

is it possible to do set opperations on arrays? any cpan module or anything? i want to do something like the following: @intersection = set_intersection(@ar1, @ar2, @ar3); @ar1 = set_difference(@ar1, @intersection); @ar2 = set_difference(@ar2, @intersection); @ar3 = set_difference(@ar3, @interse

Re: PERL and Mobile Devices.

On Tue, 10 Aug 2004, Joe Echavarria wrote: can i write applications with perl for mobile devices , Sure, go ahead. -- Chris Devers -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: checking all pieces of split data for NULL

On Aug 10, Tim McGeary said: >Jeff 'japhy' Pinyan wrote: > >> my @field_names = qw( ID name_f name_l email id contact group member ); >> my %long_names; >> @[EMAIL PROTECTED] = ( >> 'ID', 'First Name', 'Last Name', >> 'Email Address', 'id', 'Contact', 'Group', 'Member', >> ); >> >>