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. my

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: 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 wrong. I

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 As far as I can

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 Brandon, Tried your

RE: Regex c code

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\$ =|$|\n\$' =|$'|\n\$1 =|$1|\n; __END__ My output

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

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_data = sub

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 sending a web page and it showed it's

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: ?xml version=1.0 encoding=iso-8859-1? !DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN Why XML? I start my Perl CGI scripts generally

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

RE: A simple way? A Perl way?

: A 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 ,, map /(\d+)-(\d+)/ ? $1 .. $2 : $_, split /,/, 2

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: 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 and I do not know how

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

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 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

RE: Regex for numbers and text

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+)\s+(-?\d+.\d+)\s+(-?\d+.\d+)\s+(-?\d+.\d+)\s+(\w+)/; You

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?

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 ((bulk0) || (sub0)||(chuckcon0)) conpin (smu3, bulk, sub, chuckcon, 0); Apart so that all is left is: if ((bulk0) || (sub0)||(chuckcon0)) 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: $s1 =

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?

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[x]) ||

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

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: 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 wrote: Hi

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]

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]

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; -Original Message

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 maybe I'm

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=

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: [EMAIL

i need help accessing a hash

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

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

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

radio_group and colors

Hi!, I have the following code: print $query-radio_group( -name= 'repair_type', -values = [ 'Service Contract', 'Other' ], -default = 'Service Contract', -rows= 1,

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, SOUTH );

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',

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 die

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

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 PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

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: buttons groups

: buttons groups On Thu, 7 Nov 2002 17:04:40 -0600, [EMAIL PROTECTED] (Jerry Preston) wrote: I have two groups of three buttons each and I want to but the on the same screen, but they inter react with each other. How do you keep them apart? No one can help you unless you post the code which

buttons groups

Hi! I have two groups of three buttons each and I want to but the on the same screen, but they inter react with each other. How do you keep them apart? Thanks, Jerry

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:

ms access perl

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

print @$lines

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

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

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

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

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

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: Beginners Perl Subject: regex

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

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 ) =

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

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

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

a better way?

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

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 To: Jerry Preston Cc

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,

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

RE: regx way

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 %makesql(FORD,waf_end,080902 nowdate,all,0,pdv.CHEVY

RE: NAVER-MAILER@naver.com

, 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], and my e

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, i, ],

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 C

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 enter 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

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 do

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: file types

? 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 following: if( -f $fp/$program ) { print 2 programs

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

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 and or fastest? These files

displaying images

I can display an image using pure HTML: img SRC=\pattern.jpg\ align=LEFT But I cannot do it in perl. I have tried the following: $server='http://my.com'; print img src=\$server/htdocs/patterns/pattern.jpg\ height=\57\ width=\504\\n; print img SRC=\pattern.jpg\ align=LEFT; print div

Re: displaying images

-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 In XHTML 1.0 quotes around parameters are compulsary. You can skip the quotes

html to perl vars

Hi!, How does one convert html: td width=77%input type=text name=T1 size=20/td to a Perl? $value_1 = T1; Thanks, Jerry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

confused about perl and jpg

Hi!, I am trying to display an jpg image: print img SRC=RP.jpg' align=LEFT; 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]

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]

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 ) { printrows $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 ) { printrows $row

Re: hashing - cannot remember how :(

( $rows, %data ) = @_; foreach $row ( 1..$rows ) { printrows $row $rows $data{ week }{ $rows }br; } } -Original Message- From: Jerry Preston [mailto:[EMAIL PROTECTED]] Sent: Friday, January 18, 2002 11:53 AM To: begginners Subject: hashing - cannot remember how :( Hi

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: FW: Question

Pankaj, What I did was to make the background display area larger and then write the info to that area. my $back_ground = 800; my $image = new GD::Image( $back_ground + 660, $back_ground + 130 ); Jerry Pankaj Warade wrote: -Original Message- From: Pankaj Warade [mailto:[EMAIL

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:

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 their printer. What

lib lost

Hi, I have installed Date::Calc under another folder. I am trying to access it by the following: use lib qw( /export/home/kthmgr/lib/perl5/site_perl/5.6.0/sun4_solaris/Date::Calc qw( :all ) ); I want to use $days = Delta_Days( $yy1, $m1, $d1, $y2, $m2, $d2 ); I do not what syntext to

  1   2   >