Regex to breakdown c code

I am want to break down the following code that can have any number of vars being passed: c_routine("name_1", 2, 3, 5, 0,9, 1, A, b, -1.5, 1.2, 10, 0.03, 0, 0, 1, 0, m, l, var_name_1, var_name_2, var_name_3, var_name_4, var_name_5, var_name_6); I only want the passed vars. m

RE: Regex c code

10:04 PM To: Jerry Preston Cc: 'Perl Beginners' Subject: RE: Regex c code Very strange... What platform and perl are you on? I'm on RH7.3 perl 5.6.1. And could you try this: my $a=" foo [ 0 ] = function(a,b,v,t)"; $a=~/\b(\w+)\b\s*?\(/; print "\$` =|$`|\n\$& =

RE: Regex c code

Brandon, I found my error! This part is working correctly. Thanks for your help! Jerry -Original Message- From: Jerry Preston [mailto:[EMAIL PROTECTED] Sent: Tuesday, February 22, 2005 9:47 PM To: 'Brandon Willis' Cc: 'Perl Beginners' Subject: RE: Regex c code

RE: Regex c code

Brandon, Tried your code and I am still getting "Var_name[ 0 ] =" and not "Func002"; Thanks, Jerry -Original Message- From: Brandon Willis [mailto:[EMAIL PROTECTED] Sent: Tuesday, February 22, 2005 9:30 PM To: Jerry Preston Cc: 'Perl Beginners' Subject:

RE: Regex c code

Correction! I am using /(\w+)\(/ and not /\(/. Thanks, Jerry -Original Message- From: Jerry Preston [mailto:[EMAIL PROTECTED] Sent: Tuesday, February 22, 2005 9:17 PM To: 'Perl Beginners' Subject: Regex c code Hi! This seems to so simple, but I do not see what I am doing

Regex c code

Hi! This seems to so simple, but I do not see what I am doing wrong. I want to get the function name from a string of c code: $line = "Func001( 1,2,3,4 )"; Using $line =~ /\(/; Gives $1 = Func001; Works great, but not on the following $line = "Var_name[ 0 ] = Func002( d,e,r,t,)"; Using $line

RE: Ref and deref of hash

GOT IT! Jerry -Original Message- From: Jerry Preston [mailto:[EMAIL PROTECTED] Sent: Wednesday, February 02, 2005 12:14 AM To: 'Perl Beginners' Subject: Ref and deref of hash I have a .pm file that calls sub a that calls sub b. Sub B returns %data to sub a in the form %a_da

Ref and deref of hash

I have a .pm file that calls sub a that calls sub b. Sub B returns %data to sub a in the form %a_data = sub a; I am trying to return \%a_data to the original program that call sub a. $results = $data->a; sub a { %b_data = &b; # data good! return \%b

How to read this array?

I have this array and I am trying to figure out how to read $id in it. Any ideas? @history = ( { program => 'racer', version => '0.45', input => { '/home/' => undef, }, input_contents => ' $name= \'Jerry\'; $id = \'035\'; 1; ', perl

RE: Perl html or xml

Why when sending the page, the file name is not ".html" or "xxx.htm"? Thanks, Jerry -Original Message- From: Jerry Preston [mailto:[EMAIL PROTECTED] Sent: Sunday, January 23, 2005 1:55 AM To: 'Perl Beginners' Subject: Perl html or xml Hi! I was se

Perl html or xml

Hi! I was sending a web page and it showed it's self as ".xml". When I look at the source code of my Perl CGI script the first lines are: header( ); print $cgi->start_html( -title => "My script", -script => $JSCRIPT, ); print $cgi->star

ActiveState 5.6 missing DBI & ODBC

I am trying to add the ppm DBI/ODBC for ActiveState Perl v5.6.1 for sun-polaris-thread-multi server. I need to be able to access ORACLE data base, but I can only find DBI/ODBC for 5.8. When I do ppm install DBI it get the following: it is not for this build of Perl. I have looked all over th

RE: Array - how to access and display??

This works!! print "history $history[ 0 ]{ version }\n"; Jerry -Original Message----- From: Jerry Preston [mailto:[EMAIL PROTECTED] Sent: Wednesday, September 01, 2004 8:33 PM To: 'Perl Beginners' Subject: Array - how to access and display?? Hi! This is new to me a

Array - how to access and display??

Hi! This is new to me and I do not know how to access the value '0.46' in the following array: @history = ( { version => '0.46', } ); Thanks, Jerry

RE: A simple way? A Perl way?

simple way? A Perl way? Jerry Preston wrote: > Hi! Hello, > I am looking for a simple Perl way to decode the following, which can > be any grouping of number > >2-8,9,11,18-21 > > Into >2,3,4,5,6,7,8,9,11,18,19,20,21 $ perl -le' print join &quo

A simple way? A Perl way?

Hi! I am looking for a simple Perl way to decode the following, which can be any grouping of number 2-8,9,11,18-21 Into 2,3,4,5,6,7,8,9,11,18,19,20,21 Any Ideas? Thanks for Your Time and Help, Jerry

RE: Regex on a string

Got It!! Thanks, Jerry -Original Message- From: Jerry Preston [mailto:[EMAIL PROTECTED] Sent: Sunday, August 22, 2004 9:04 PM To: [EMAIL PROTECTED] Subject: Regex on a string Hi! I know this is simple, but I am not getting any where. I want to pull a group of letters, X1891 from

Regex on a string

Hi! I know this is simple, but I am not getting any where. I want to pull a group of letters, X1891 from the following: ZP5DX1891J10R01 /X\w{4}/ One thing to note is the number of characters before and after the X1891 is always changes. Thanks, Jerry

RE: Regex for numbers and text

or numbers and text On Jul 11, Gunnar Hjalmarsson said: >Jerry Preston wrote: >> I am trying to setup a single regex to breakdown the following lines: >> >> Jerry2.74 4.5 mon >> Mark -14-10.75 -10 new >> >> /(\w+

Regex for numbers and text

Hi! I am trying to setup a single regex to breakdown the following lines: Jerry 2.74 4.5 mon Mark-14-10.75 -10 new With /(\w+)\s+(-?\d+.\d+)\s+(-?\d+.\d+)\s+(-?\d+.\d+)\s+(\w+)/; What am I doing wrong? Thanks, Jerry

Running Perl CGI MS XP System

Hi! I am looking for a way to run Active Perl CGI on my PC that is setup on Windows XP. I have installed Apache and I am trying to figure out how to set it up the Virtual Host mode to run Perl script with CGI like I do on my work SUN station. Any ideas on how do this or is there a better way? T

Perl and mouseover

Hi! I am trying to figure out how and what is the best and simplest way to use mousover in a per script. All I want to do is display some text data. Any ideas? Thanks, Jerry

Strings Perl

Hi!, I know how to do this in C, but how to in Perl? I want to chop the following string: if ((bulk>0) || (sub>0)||(chuckcon>0)) conpin (smu3, bulk, sub, chuckcon, 0); Apart so that all is left is: if ((bulk>0) || (sub>0)||(chuckcon>0)) The key word to break on is 'conpin', but it will

String manipulation

Hi! I am trying to figure out a simple, Perl way to break down any sting similar to the following: $s0 = "01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25, 26,27,28,29"; Or in any numeric order. The string cannot be longer than 55 characters and end with ",". Ex: $s

Compare two array's

Hi!, I know that this is a no brainer, but I cannot not get it! I want to compare two arrays and delete the same values in one array. foreach $j ( @a1 ) { foreach $p ( @a2 ) { $a2[ $p ] = undef if $a1[ $j ] == $a2 $p ]; } } What is wrong and is there a better, PERL way to do this? Tha

finding a blank line

Hi! I know this is a no brainer, but this line of code does not always work: last if( /^\n/ or /^\s+\n/ ); What am I missing? Is there a better way? Thanks, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

regex, is this possible?

Hi! I am trying to break down the following: printf("numsteps=%d i=%d im=%g vfr=%g \n",numsteps,i,imeas,vforce); into "numsteps= numsteps i=i im=imeas vfr=vforce \n" printf ("\noriginal cap = %g, offset = %g", *ci, cap_offset); into "\noriginal cap = ci, offset = cap_offset"; I am

another how to regex ?

Hi! I am trying to change some text from: if ( (fabs(log(im[ii]/im[ii-1])/vstep) > fabs(3*log(im[ii-1]/im[ii-5])/(4*vstep)) ) && ((im[ii] > ifr[x]) || (im[ii-1] > ifr[x])) ) { to if ( (fabs(log(im[ii]/im[ii-1])/vstep) > fabs(3 * log(im[ii-1]/im[ii-5])/(4 * vstep)) ) && ((im[ii] > ifr

is it possiale to regex this

Hi! I am trying to figure out a way to remove the c pointers from the following: *ci = *ci * (1.0 + ((gi/(w * *ci)) * (gi/(w * *ci; so that it will end ou as the following: ci = ci * (1.0 + ((gi/(w * ci)) * (gi/(w * ci; I am converting a c program with perl. Thanks, Jerry -- To u

RE: is there away to regex

Kevin, I am converting c to basic. Bad stuff! Thanks, Jerry -Original Message- From: Kevin Pfeiffer [mailto:[EMAIL PROTECTED] Sent: Wednesday, October 01, 2003 4:23 AM To: [EMAIL PROTECTED] Subject: Re: is there away to regex In article <[EMAIL PROTECTED]>, Jerry Preston

is there away to regex

Hi! Is it possible to combine the following into one: s/^\s+;//; s/\/\*/!/; s/\*\///; Thanks, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: how to regex or

Tim, Yes, I will try it again. A typo on my part! Thanks, Jerry -Original Message- From: Tim Johnson [mailto:[EMAIL PROTECTED] Sent: Tuesday, September 30, 2003 10:59 PM To: 'Jerry Preston'; Tim Johnson; [EMAIL PROTECTED] Subject: RE: how to regex or Then may

RE: how to regex or

Tim, Yes, but does not do the job. Thanks, Jerry -Original Message- From: Tim Johnson [mailto:[EMAIL PROTECTED] Sent: Tuesday, September 30, 2003 9:09 PM To: 'Jerry Preston'; [EMAIL PROTECTED] Subject: RE: how to regex or Have you tried this? s/\|\|/ or /g; -Origin

how to regex or

Hi! I am trying to swap all the '||' in a string to or: s/||/ or /g; I have tried it a number of ways, but I am getting no where. Any ideas? Thanks, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

how to do a popup browser window

Hi, I want to be able to create a browser popup window big enough to hold my text data. Is this possible or do I need to use JavaScript or something else? Thanks, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: how to read?

Ramprasad, I have no choice in the data format! Thanks, Jerry -Original Message- From: Ramprasad [mailto:[EMAIL PROTECTED] Sent: Monday, August 18, 2003 2:24 AM To: [EMAIL PROTECTED]; Jerry Preston Cc: [EMAIL PROTECTED] Subject: Re: how to read? Jerry Preston wrote: > Hi! >

how to read?

Hi! This one is new to me and I need to be able to read $name and $age from the following: @history = ( { program => 'new', version => '0.42', }, input => { '/data' => 0.14, '/home' => undef, }, input_contents => ' $name = \'Jerry\'; $age=

i need help accessing a hash

Hi! I have the following hash: %layout = ( hotspots => { JERRY => [ { '_DIMENSION' => [ 'width', 'height' ] }, { 'cell_center' => [ -1240955, -312200,

looking for a better way...

Hi!, I am trying to breakdown this line: "q4171","(08/11/03 23:30:48)","" with ( @data ) = split /[,|\"]/;#" but I get many parts of the array that are empty. All I want is in between the "'s. Thanks, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EM

Regex - to simple to see?

Hi! I know this is not as hard to do, but I do not seem to see the result: $_ = "p8,INT,5" if( $_ =~ /(w+),INT,\d{2}$/ ) { } Thanks, Jerry

Hash to array of arrays

Hi!, I have the following hash: for $j ( 1..20 ) { for $i ( 0..$DAT{ good_setups }{ $id } ) { $pin{ order }{ $i }{ $j } = $DAT{ pin}{ $id }{ $i }{ $j }{ 0 } if $DAT{ pin }{ $id }{ $i }{ $j }{ 0 } > 0; $pin{ depth }{ $i }{ $j } = $DAT{ height }{ $id }{ $i }{ $j }{ 0 } if $D

use GD::Graph::linespoints;

Hi! I am trying to change the background color of my graph, I do not quite understand how to do it. I have read the doc a number of times an I am missing it. I am looking for a working examples. Are there any on the web? Thanks, Jerry

Regex ing +- numbers

Hi! I am trying to breakdown the following: Pin 60 contacted, height = -11, counter = 1 with /(\w+)\s+(\d+)\s+(\w+),\s+(\w+)\s+\=\s+-(\d+),\s+(\w+)\s+=\s+(\d+)/; Pin 20 contacted, height = 8, counter = 1 /(\w+)\s+(\d+)\s+(\w+),\s+(\w+)\s+\=\s+(\d+),\s+(\w+)\s+=\s+(\d+)/; But, I would like

how to count?

Hi! I am not sure if this can be done or not, but I want to create a counter on the fly so to speak. foreach $id ( @IDS ) { $cnt = "$id"."_cnt"; $cnt++; } All I get is "item_cnt". Is there a way to do this? Thanks, Jerry

looking for a better way, a perl way

Hi! I am looking for way to reduce the following code, a better way, a perl way. Any ideas? while ( my ( $Site, $Description, $Part_Number, $Part_Serial_Number, $Qty, $RMA_Number, $Customer_Contac, $RMA_Date, $Part_Rec ) = $sth->fetchrow()) { # while ( $data ) = $sth->fetchrow()) { $l =

used sendmail to send an attachment

I use $mailprog = '/usr/lib/sendmail'; to send e-mail with. Can I use this to send an attachment? Thanks, Jerry

A better way, a perl way?

I am looking for a better way, a perl way for the following: foreach ( @data ) ) { s/^ //; $data_[ $jp++ ] = $_; } I have seen a one liner using while, but I do not remember. Thanks, Jerry

hash & arrays

Hi!, I do not understand what I am doing wrong. I can pass an hash this way and not an array using the following: require Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(); our @EXPORT_OK = qw( @T_AREA ); our @EXPORT_OK = qw( %T_IDS ); where @T_AREA = ( "", "NORTH", "SOUT

int or float

Hi! I am looking for a simple way to figure out if a value is a integer or a float. How to tell the difference between 7 and 7.5. Thanks, Jerry

file time

Hi! I am trying to get the current file time by the following: $file_datetime = ctime( stat( "$file_name" )->mtime ); All I get is the time that the file was created. What am I doing wrong? Thanks, Jerry

displaying spaces

Hi!! I have some vales in a table: sap=> { '01-17642-200' => '464-0001', '01-17615-700' => '463-0001', '01-17533-410' => '4600970-0001',

install ODBC DRIVER MANAGER

OK, I am trying to install DBD-ODBC. I ran the perl Makefile.PL -o odbchir. IT say: Using /usr/local/lib/per;5/site_perl/5.8.0/sun4-solaris/DBI It says that I need to like to ODBC 'Driver Manager'. What is this and where and how do I get one or install one? Thanks, Jerry

RE: accessing access

:04, Jerry Preston wrote: > for the code: > > my $dbh = DBI->connect( "dbi::ODBC:pfawtbls.mdb", "", "", ) or die ^ extemporaneous colon, no? Bob Rasey -- To unsubscribe, e-mail: [EMAIL PROTECTE

RE: accessing access

: RE: accessing access Have you set up your ODBC driver via Control Panel (or Computer Management in W2K)? Ralph -Original Message- From: Jerry Preston [mailto:[EMAIL PROTECTED]] Sent: 20 November 2002 13:05 To: Beginners Perl Subject: accessing access Hi! I am trying to access an

accessing access

Hi! I am trying to access an access mdb file for the first time. I get the following error: Can't connect(dbi::ODBC:pfawtbls.mdb ), no database driver specified and DBI_DSN env var not set at jfa_data.pl line 147 for the code: my $dbh = DBI->connect( "dbi::ODBC:pfawtbls.mdb", "", "", ) or d

cookies, where are my cookies

Hi! I am I doing this right? use strict; use DBI; use CGI qw(:standard); use File::Basename; my $query=new CGI; print $query->header(); print $query->start_html( -title=>'JERRY PRESTON COOKIES' ); print $query->startform( -method=>'POST', -nam

Perl error with Oracle

Hi! I just setup a new server with solaris 8 and installed perl5.6.1 and all seems to be working great except that I get the following error: DBD::Oracle initialisation failed: Can't locate auto/DBD/Oracle/ORA_OCI.al in @INC (@INC contains: /export/home/kthmgr/lib/perl5/site_perl/5.6.0/sun4-solar

ms access & perl

Hi!! Is it possible to access MS access from Perl? If so, how? Thanks, Jerry

lost - map { "$_:\t$h->{$_}[0]\n"} keys %$h

Hi! Can anyone explain to me how map works in this code? for my $h ( # grab the Subject and Date from every message in my (fictional!) smut folder; # the first argument is a reference to an array listing all messages in the folder # (which is what gets returned by the $imap->search("A

Mail::IMAPClient::BodyStructure::Parse error

Hi! I get the following error: Can't locate object method "new" via package "Mail::IMAPClient::BodyStructure::Parse" at Mail/Client/BodyStructure.pm line 15 What is wrong? Thanks, Jerry

print @$lines

Hi! How would you write a foreach loop to go through @$lines on line at a time? Thanks, Jerry

RE: POP3 account access

Hi! I see that the Sun NetMail is doing the following: Logging into IMAP server... Is this POP3? What should I use to access this? Thanks, Jerry -Original Message- From: Jerry Preston [mailto:[EMAIL PROTECTED]] Sent: Monday, October 14, 2002 4:26 PM To: Beginners Perl Subject: POP3

POP3 account access

Hi! I am using the following code to try and access an existing POP3 account: #!/usr/local/bin/perl #=== # How to read email with Net::POP3 # Copyright 2000, Emmie P. Lewis # Created 02/27/00 #=== # This script is designed to show # how to

RE: regex is working , then not?

]] Sent: Wednesday, October 09, 2002 9:41 AM To: '[EMAIL PROTECTED]'; Beginners Perl Subject: RE: regex is working , then not? See inline comments > -Original Message- > From: Jerry Preston [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, October 09, 2002 10:36 AM > To: Be

regex is working , then not?

Hi! I do not understand why my regex works , then does not. regex: my (@dat) = /(\w+\s+\w+\s+)=\s+(\w+)_(\w+)_(\w+)_/; Works! Process Name = D4_jerry_5LM_1.91_BF Returns: Process Name DM4 15C035 5LM Does NOT work: Process Name = d4_jerry_5lm Is there a better way to write t

need a better regex

Hi!, This is working, but is getting to be to big. Is there a better way? +: JERRY : SCRAP AND HOLD : C-1234567-02 : = 3 sites outside [ 1., 10. ] * ( $parm[ $p ], $t1, $t2, $t3, $header, $number_, $count[ $p ], $site[ $p ], $t4, $t5, $min, $max ) = /\+:\s+(\w+)\s+:\s+(\w+)\s+

net::pop3

Hi! I am having problem with this code: #!/usr1/local/bin/perl #=== # How to read email with Net::POP3 # Copyright 2000, Emmy P. Lewis # Created 02/27/00 #=== # This script is designed to show # how to use Net::POP3 to read your # email fr

handling large data files

Hi!, I am look for a better way and a faster way to deal with a 4 - 8 meg data file. This file has been saved as an .cvs file for excel to read in. All I am interested in is the first three cells of ',' delimited data. Die,Row 0, Column 11 Test Result,1 Score,1 PMark Score,0 k Score,0 Scor

e-mail

Hi! I need to be able to read incoming e-mail break down it's contents, input this data into an oracle table, do some numbers based on this data. Then generate a new e-mail and send it back. The only part that is new to me here is the e-mail. What is the best and or easiest way to deal with e-

another regx ...

Hi! I am getting no where on this and it is not that hard. I am trying to break down the following: D-2165033-10.TKB61a into D 2165033 10 and 4-2175587-08.TKB63a into 4 2175587 08 using (( $ref, $numt, $id, $ext ) = $PATH[ 7 ] ) =~ /\w-(\d{7})-(\d{2}).[\w+|\d+]/; What am I doing

RE: a better way?

Jeff, I guess it an old 'c' habit. I do this to check each line for the item I am looking for. I there a better way and why? Thanks, Jerry -Original Message- From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]] Sent: Thursday, September 26, 2002 10:36 AM

a better way?

Hi! Is there a better way? A Perl way? $j = 0; while( ) { chomp; ( $lots[ $j++ ] ) = $_; } ? @lots = ; Thanks, Jerry

RE: another reg needed

Connie, This is what I am looking for! But all I get is','. Thanks, Jerry -Original Message- From: Connie Chan [mailto:[EMAIL PROTECTED]] Sent: Friday, August 16, 2002 3:34 PM To: [EMAIL PROTECTED]; Beginners Perl Subject: Re: another reg needed > $_ = "Die,Row 0, Column 12" do you

another reg needed

Hi, I am trying to learn to do reg's and I am not sure how to break this down: $_ = "Die,Row 0, Column 12" What I want is the 0 and 12. What about the text? Thanks, Jerry

RE: NAVER-MAILER@naver.com

e email id, but also will totally specially characters. Regards Jay -Original Message----- From: Jerry Preston [mailto:[EMAIL PROTECTED]] Sent: 09 August 2002 17:07 To: Beginners Perl Subject: [EMAIL PROTECTED] Hey!! Every time I send an e-mail to Beginners I get an e-mail [EMAIL PROTECTED]

RE: regx way

ri, 09 Aug 2002 11:30:54 GMT, [EMAIL PROTECTED] (Jerry Preston) wrote: > I am looking for a simple way to replace a date in a string: > >"%makesql(FORD,waf_end,010602 &nowdate,all,0,pdv.CHEVY);\n", > > to >&q

NAVER-MAILER@naver.com

Hey!! Every time I send an e-mail to Beginners I get an e-mail [EMAIL PROTECTED], and my e-mail admin says that it contains a viruses!! Any ideas what is going on?? Jerry

regx way

Hi! I am looking for a simple way to replace a date in a string: "%makesql(FORD,waf_end,010602 &nowdate,all,0,pdv.CHEVY);\n", to "%makesql(FORD,waf_end,080902 &nowdate,all,0,pdv.CHEVY);\n",

hashing in a package

Hi! I have a number of hash's that use over and over. Currently I can access via a "require file_name". I would to put these in a package and access them, but I do not know how. Any ideas? %T_HASH = ( a => [ "d", "e", "f", ], b => [ "g", "h"

how in the hash and keep it simple

Hi! I am not sure on how to do this, but I am sure if there is a way, Perl can do it! %T_MODLUES = ( A1 => [ qw/ A B C D E F/ ], A2 => [ qw/ A B C D E F/ ], A3 => [ qw/ A B

sorting a hash alphabetically

Hi! I have a hash built in the following way: $names{ $ID } = $your_name; I want to l want to list in print $query->popup_menu( -name=>'Emp', -values=> \%who, -default=> \%who, ); but in alphabetically. How

vx - vmx - tip hardwire via perl

Hi! Can perl deal with vx or vmx? I can access "tip hardwire", but lose control because I do not know to do an that is required. I need to be able and reset the controller clock. I have tried to telnet into the controller via vx, bit I have idea on what commands to use. Thanks, Jerry --

RE: file types

ssions are lwxrwxrwxr and the other is -wxrwxrwxr! Any ideas? Thanks, Jerry -Original Message- From: Jerry Preston [mailto:[EMAIL PROTECTED]] Sent: Friday, May 03, 2002 1:09 PM To: Beginners Perl Subject: file types Hi! I am trying to determine if a is linked or not. I am using the f

file types

Hi! I am trying to determine if a is linked or not. I am using the following: if( -f "$fp/$program" ) { print "2 programs $program*\n"; $programs{ program }{ $program } = "$fp/$program"; } and if( -l "$fp/$program" ) { print "2 programs $program*\n";

Re: comparing files

Jenda, I want to which lines are different. Thanks, Jerry Jenda Krynicky wrote: > From: Jerry Preston <[EMAIL PROTECTED]> > > > I want to compare one file to another. Is it better to read the files > > line by line into an array or and hash or what is the best an

comparing files

I want to compare one file to another. Is it better to read the files line by line into an array or and hash or what is the best and or fastest? These files are less than 100 lines. Thanks, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: displaying images

command in the browser? > > Regards > > -Original Message- > From: Charlton, Mark [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, April 10, 2002 6:07 PM > To: 'Connie Chan '; 'Jerry Preston '; 'begginners ' > Subject: RE: displaying images &g

displaying images

I can display an image using pure HTML: But I cannot do it in perl. I have tried the following: $server='http://my.com'; print "\n"; print ""; print" What I am I doing wrong? Thanks, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-m

confused about perl and jpg

Hi!, I am trying to display an jpg image: print ""; But it tells me that the file is not found? What am I missing? Thanks, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

html to perl vars

Hi!, How does one convert html: to a Perl? $value_1 = T1; Thanks, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

how to sort, in to out

Hi, I am trying to figure out an easy way to sort out a array of numbers: 2 20 38 56 75 93 -17 -35 -53 -72 -90 Into the following: -90 -72 -53 -35 -17 2 20 38 56 75 93 I have done the following: @x_step = grep { ! $x_step_t{ $_ } ++ } @x_step_t; @x_step = sort {$a == $b} @x_step; To

asin?

Hey, Does Perl support asin? If so, what, where, when and an example. Thanks, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Getting mail with Perl

Hi, I what to be able to check and read mail, is this possible with PERL? If so, what, where do I need to look, read and learn? Thanks, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: hashing - cannot remember how :(

able_date( 5, %data ); > > sub build_table_date { > > my( $rows, %data ) = @_; > > foreach $row ( 1..$rows ) { > print"rows $row $rows $data{ week }{ $rows }"; > } > } > > -Original Message- > From: Jerry Preston [mailto:[EMAIL PROTE

hashing - cannot remember how :(

Hi, This is DUMB, but I cannot remember how? I have two hashes and I want to pass them: $data{ week } = %week_day_date; $data{ eng } = %eng_info; &build_table_date( 5, %data ); then: sub build_table_date { my( $rows, %data ) = @_; foreach $row ( 1..$rows ) { print"rows $row

hashing - cannot remember how :(

Hi, This is DUMB, but I cannot remember how? I have two hashes and I want to pass them: $data{ week } = %week_day_date; $data{ eng } = %eng_info; &build_table_date( 5, %data ); then: sub build_table_date { my( $rows, %data ) = @_; foreach $row ( 1..$rows ) { print"rows $row

which browser

Hi, How can I tell which browser is running my perl script? Thanks, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

need help to understand a regex

All, I need to understand this regex in detail: $key=~/^r(\d+)c(\d+)$/ Thanks for your help and time, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: how to print

Hi, The user's will be using PC's running NT 4.0 when running the scripts. Thanks Again for Your HELP!! Jerry Jerry Preston wrote: > Hi, > > I am using Perl with CGI on a SUN box. I want to be able to send to the > local user running my script a report directly to the

how to print

Hi, I am using Perl with CGI on a SUN box. I want to be able to send to the local user running my script a report directly to their printer. What is involved? What does Perl have to support this? Thanks, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [

  1   2   >