$1 $2 $3 variables

;,'s in it - which I do not want. I would like to place 'Mar' in $1, 17 in $2, 08:48:50 in $3 and so on. $line = "Mar 17 08:48:50 msasa pppd[6404]: Connect: ppp0 <--> /dev/ttyS1" Ques 2) Where in the linux documentation do I find an example? I have RH7.1. Many thanks P

formatting numbers

as 1 631 Please can someone put me right. Many thanks for introducing me to the split command/function it sure is a winner. My simple program which prints unformatted is below Many thanks Pat. Program follows:- #!/usr/bin/perl #Program that needs formatting of numbers $Tot_time="383.3"

Running one perl program from another

l but what i code doesn't work...and am sure that I will kick myself when shown. TIA Pat PS I have just resubbed so might have missed it in the lastest topic postings.

Fw: Creating the first GUI for Windows in Perl using Tk

I have installed both perl and Tk with RH7.1 and I also get the same error messages as were posted here before. I have checked the man pages and searched for the elusive Tk.pm file. Please can someone put me on the right track? Pat

Dear friend!

Dear friend,I am willing to give you a big surprise. I found a website:  www.ollsu.com last week. They mainly sell phones , laptops, tvs ,digital cameras and motorbikes. I ordered a tv . now I have got the product after 5 days. Its quality is very good.By the way, they only sell new and original pr

Net::SSH::Perl log in

Hi all I'm trying to do the following as a test to get perl to log in to an ssh server. Before anyone asks the password has been changed, but was correct for log in. Code below Thanks in advance. Pat 1 #!/usr/bin/perl 2 use Net::SSH::Perl; 3 4 $scon = Net::SSH::Perl

Troubleshooting SQL server

WHERE Email_Address='?'/; get we debug mode etc, so insted of just going my query failed, could i question where there was a problem. Pat -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

html trees Can't call method "as_text" on unblessed reference

66 my $SR_Number_as_text = "0.1.0.4.1.0"; 67 my $counter =1; 68 foreach my $item_r ($tree->address("$address")->content_refs_list) { 69 #next if ref $$item_r; 70 #$$item_r =~ s/honour/honor/g; 71 $counter++; 72 print &q

database Cgi query's

I can mix that up with HTML easly Thanks in advance Pat -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

cgi ordering a table with sql

icked on boxes I would order by boxes, if you get my idea, i'm trying to do this in one script. Thanks in advance Pat 1 #!/usr/bin/perl 2 use DBI; 3 use strict; 4 my $db = DBI->connect("dbi:SQLite:test.db", "", "", 5 {

Re: cgi ordering a table with sql

nyone know how I can confirm that the ? is correct, as in what is being passed to the query. but I'm prety sure that I am passing the correct arguments to the SQL query, i.e. my $sth = $dbh->prepare('SELECT * FROM test1 ORDER BY ?'); Thanks in advance Pat 1 #!/usr/bin/perl

Re: cgi ordering a table with sql

Thanks Gunnar,Jenda And everyone else that responded, its was great to get it working. Its one of thoese ones were you spend time staring at the code saying that it should work, but it dosent. Thanks :) Pat -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL

Re: Parsing HTML file

Hi try html trees on cpan there is also html tables, but I haven't used it. Trees can take a while to understand but it seems to be pretty good. Pat On Mon, Jun 2, 2008 at 12:10 PM, Jeff Peng <[EMAIL PROTECTED]> wrote: > On Mon, Jun 2, 2008 at 5:56 PM, Purohit, Bhargav >

regex on the fly on LWP

gex on each line as I suck it in, and then print out the line, so I don't have to do a regex on a file. so i would do a regex $page and what ever line would have the regex in would print it out. Any Ideas Thanks Pat -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

reading in a file, line by line by picking certian lines

ignore the lines in the file, and know I'm going the right distance ? Thanks Pat -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: reading in a file, line by line by picking certian lines

Hi all Thanks for all the help with this, going to have some fun implementing it :) Thanks Pat -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

parsing a tree like structure

locks Written...858120919 |Aborts...0 Thanks in advance Pat -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

counting number of multiple occurances in a row

hi I would like know how to count multiple occurances in a sql query. eg. row would be: tom, tom , tom, john,pat,pat and this would produce tom 3 john 1 pat 2 I've tried this but I am only gettting 1 back select count(*) from commitCurrent where company =(select distinct company

Outlook with perl

Hi all Just wondering is there any way we can talk to outlook using perl, as in to look at a users inbox and then do an action on that ? for example send a mail from a users mail. And no before you ask, I'm not trying to write another spamming application :) Pat -- To unsubscribe, e

Re: Question on Perl

Hi ya I put mine in if statements, then you can turn them of and on globally if(debug == 1){ print "$bla" } hope that helps Pat On Wed, Aug 27, 2008 at 3:47 PM, Jeff Pang <[EMAIL PROTECTED]> wrote: > >> Message du 27/08/08 16:31 >> De : [EMAIL PROTECTED] >&

Sending SMS

Thanks in advance Pat -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Apache not running perl

some type of blocker, to prevent www::mechinse to run, as this is running fine of the command line, and other perl scripts are working fine on apache... I can't think of anything. Thanks in advance Pat -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

physical document Managment

reciated. Thanks in advance Pat -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

form generator Perl... (The Holy Grail)

on or run the script and out comes Perl and/or HTML - give me place holders for a database connection Ideally I can see this web app being session based, so any ideas greatly appreciated. I suppose I don't ask for much ! Thanks in advance Pat -- To unsubscribe, e-mail: [EMAIL PROT

urandom

Greetings, I would like to create get some random stuff using /dev/urandom. What I was thinking is using stuff from urandom as the random seed and using the normal rand stuff from perl? Any ideas how I could code this, or is there a better way of actually getting random stuff. Regards K --

Library ref man

Greetings, I am looking for a perl library reference manual in PDF format if there is such a thing out there. I have seen library ref manuals in html, but was just wondering if there is anything in PDF just to avoid downloading the stuff. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For addit

Test how we were executed

Greetings, I want to write a script that will check to see if it was called from another script, if not it will display a message saying for instance this script is meant to be called from other script & not run interactively for instance otherwise if called from a script will do it's intended

RE: Test how we were executed

What I meant is test to see if we were run from an interactive shell, if so, print an error message. LK -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

my & local variables

Greetings, I read in the book SAMS Teach Yourself Perl in 21 Days that you can use my/local to declare vars. They explanation I got from the book did not do much explaining on exactly what the difference is between the two. Can someone please shed some light. Regards LK -- To unsubscribe, e

Writing to the Windows registry

Greetings, I am trying to write to the registry using example code that I got from le- berre.com I obviously did something from here coz this does not work. --- Start code --- print ("Inserting registry settings [@ARGV[$i]]\n"); my $Register = "thiskey/test"; my $hkey; $HKEY_CURRENT_US

getopt::std

Greetings, I am trying to do command line processing using the above lib, but am not quite getting the syntax from the PLEAC perl project. For instance I have the following args allowed: -s x.x.x.x | server.domain.com > server is ip/host -o outfile > output to outfile -h > display help. I under

building stand-alone apps

Greetings, I am looking for a freeware perl2exe type of tool for Windows. Any ideas if such exists & where I can get it? Regards LK -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Encryption with rijandael.

Greetings, I am looking for basic examples of how I would go about doing encryption using rijandael. For instance, I wanna take a text file $file and encrypt it with a given key $key and write it to file $cryptfile. Any ideas? Thanks in advance. Regards LK -- To unsubscribe, e-mail: [EMAIL

install crypt::passgen

Greetings, I am having a problem with ActiveState ActivePerl 5.6.1. I am tryin to install the abovementioned lib & I get the following error from PPM version 3 beta 3 ppm> search crypt::passgen Searching in repository 2 (ActiveState Package Repository) 1. Crypt-PassGen [0.02] ppm> install c

DB_file help.

I am trying to create a small database with the information like this: Each record has a name ie : Dog And has the following traits: color weight nick For example I could have the following data: Name: dog Color: green Weight: 66 Nick: doggie friend: cat Name: fox Color

problem with regex in a while loop.

roblem is, as I connot get in to the while loop while ($line = ) I think the syntax is ok, could some one confirm this Code below. Thanks in Advance Pat #!/usr/bin/perl use strict; use warnings; my $data_file = 'df.'; print "$data_file \n"; # Open the file for reading. open

html template and tables

Hi all I'm trying to do the following: Print out the table from an array using HTML teplates. I'm not sure of the sintax of how to get this table to display, I dont like posting code here, but I'm kinda stuck and I dont know if I am going in the right direction to do what I want to do. my main pr

adding data to a file before it gets regexed

LogFile= "$datafile2 $DataVariable"; 55 ## End of change 56 push (@array_of_data, $combinedLogFile); 57 close (DATA); 58 Thanks in advance Pat

Re: adding data to a file before it gets regexed

se it in a regex afterwards, so it will break out what file was assiated with the line, as I have a list of files that i am adding together. I'm using opendir to get a list of files, then opening the files using open, but I want to add the file to the string. Thanks Pat On 9/13/07, Cha

Re: adding data to a file before it gets regexed

ther script. I think from what people are suggesting I will have to use hashes, is there any good example log file perl scripts out there? or a good site ? as I'm trying to take the logs that I find interesting and then display them on a web page using html templates Thanks for all the help Pat

Re: adding data to a file before it gets regexed

Thanks all for the help I'm havng a go wrighting it at the moment Pat On 9/13/07, Moon, John <[EMAIL PROTECTED]> wrote: > > From: John W. Krahn [mailto:[EMAIL PROTECTED] > Sent: Thursday, September 13, 2007 2:01 PM > To: Perl beginners > Subject: Re: adding data to a f

forms LWP

that I can use a second form to slect what I want. any ideas on how to aproach this, I hope I haven't asked for too much I'm trying to avoid the dark programming alleys :) Thanks in advance Pat

running cgi off the command line works, but running on the browser fails with a 500 error

Hi all Error 500 error is the follwoing [Thu Sep 27 16:26:56 2007] [error] [client 10.16.153.99] Prototype mismatch: sub main::head: none vs ($) at /var/www/cgi-bin/srHandler4.cgi line 7 [Thu Sep 27 16:26:57 2007] [error] [client 10.16.153.99] [Thu Sep 27 16:26:57 2007] srHandler4.cgi: Error 500 o

cgi Pain!!!

s not being sent to the screen. Thanks Pat 1 #!/usr/bin/perl -w 2 use CGI qw(-debug :standard); 3 use CGI::Carp qw(warningsToBrowser fatalsToBrowser); 4 use strict; 5 adding the bits from teat.pl 6 use warnings; 7 #use LWP::Simple; 8 use LWP:

how do do work on a whole bunch of arrays in parrel

passable, an how would I do it, basically I am looking for guidance here on how to do this, from a Perl point of view, would hashes be the answer ? Thanks Pat

Re: A way to comment out a block of code

I always use an if debug option like below, its so handy, so that you can put all your debug output here. you can do different levels here too to make things really funky :) Pat On Jan 16, 2008 7:17 AM, Jeremy Kister <[EMAIL PROTECTED]> wrote: > On 1/15/2008 3:09 PM, S.A. B

ordering data in a table!

eon(TM)CPU3.00GHz Thanks Pat

lwp & post

tus_line 26 unless $response->is_success; 27 28 if($response) { 29 print "got a responce"; 30 } 31 32 if ($response->is_success) { 33 print $response->content; 34 } 35 else { 36 print $response->status_line, "\n"; 37 } 38 39 40 41 42 43 exit; Thanks Pat

Re: Need a Perl Book for Beginner

I've been using this as a reference. It's free on perl.org. http://learn.perl.org/books/beginning-perl/ Pat Soberanis Landline: 916-930-0923 pat.sobera...@gmail.com On Dec 4, 2012, at 3:06 PM, Danny Gratzer wrote: > Id recommend beginning perl by brian d foy or try programming

Config::General help

Greetings, I am trying to use config::general on my script. The config file looks like this: lname=soap uname=joes [EMAIL PROTECTED] gay=1 lname=doe uname=jandoe [EMAIL PROTECTED] gay=0 lname=shady uname=eminem [EMAIL PROTECTED] gay=1 I would like to read this in from file and display it

Setting NT/Win2k networking params

Greetings, Is there a CPAN module that I can use to set network settings for WinNT/2K such as WINS server, DNS server address, that kind of stuff. I am also looking for a pure perl way of setting the IP address, mask & gw. Currently I am using the command line tool netsh to do this. A pure pe

sorting a hash by value.

Greetings, I would like to sort a hash by value. The hash values are numbers. I would like to sort this by desceding order. How would I do this? I have searched and found nothing on it. I have found lots on sorting by key though... Please help dudes! Ciao LK -- To unsubscribe, e-mail: [EMAI

what does this pattern match?

$_=~s/\n//msg; What does the above match? LK -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

make problems

Hi, I'm having a make problem with the x2p directory. I get a file not found error, but I'm not sure which file ! hash.h and hash.c are in the directory, and I even made a link to config.sh in the same directory with no results. Any hints ? I have included part of the make file (-d) output. GN