Re: initialising a list of variables

And the clouds parted, and Rob Dixon said... > > Gary Stainburn wrote: > > > > Hi Gary. > > Just one more offering: > >$_ = '' foreach my ($fred, $ginger); > > HTH, > > Rob ...and in the spirit of TMTOWTDI... map {$_=""} my ($fred, $ginger); :) /~

Hash Issue or Understanding

Hi, For those of you who helped me with my earlier scripts. Thanks. But I have a further problem in understanding something. Using The following declaration: my %commands = ('sol'=>{'hostname' =>'uname -n', 'os' =>'uname

Re: Issue

On Wednesday 29 Oct 2003 7:35 pm, [EMAIL PROTECTED] wrote: > Hi, > > It has come to my attention that I need a little understanding > of what I'm doing here. Gary has provide some overview but not > Technical detail as I would like to have. That isn't his fault. > I admire his feedback for

Re: Hash Issue or Understanding

The output works but it not in the order I expected: I expected my output to be: hostname, IP addrress, OS, Version, Release, Server Type, Model, Memory Size, Total CPU's. But what I got was: Model, Server Type, cpu, Release, hostname, OS, Memory Size, Version It seems to me the hash sta

Re: Hash Issue or Understanding

On Thursday 30 Oct 2003 8:17 am, [EMAIL PROTECTED] wrote: > Hi, > > > >For those of you who helped me with my earlier scripts. Thanks. > > [snip] > > It seems to me the hash started almost at the bottom of the list instead of > > With the hostname and work it way down. Is there any way to force

Re: Module Object and sub module function

Dan Muey wrote: > > Sorry for the confusion, I was switching example names on everyone. > > I think I've got it. > > I've made it object oriented and functional based. (Gulp, kinda scary :-)) > > I have This is in your Mymodule.pm presumably? > package Parent::Module::MyModule; My only proviso i

config file: a) what Module ? b) conditionals in config (for multiple hosts)

Hi, a) I am looking for a module to handle config files. There are a number of these modules, like AppCconig. Any consensus about The Right Module for this? b) As I develop one one machine and test/deploy on another, I want constructs in my config file like: if (`hostname` eq 'dev_box') {

flock() semantics?

Hi all, I'm writing an app which uses a flat file to store a *short* list of simple key/value pairs. However having read the flock() man page, I'm unsure about whether I need to seek() in cases where I'm not merely appending to the file (such as when deleting a record). sub Delete_Record { my

What is my name

Hi, I have a little problem. I have script "test.pl" and inside this script I want to know what is "my name" (I mean this "test.pl". test.pl script --- my $this_scripts_name_is = who_am_I(); sub who_am_I { my $my_name = ; # what I have to put to this "" to get "test.pl"

Re: What is my name

[EMAIL PROTECTED] wrote: Hi, I have a little problem. I have script "test.pl" and inside this script I want to know what is "my name" (I mean this "test.pl". $0 will contain the program name perldoc perlvar -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PR

Re: flock() semantics?

Shaun Fryer wrote: > > I'm writing an app which uses a flat file to store a > *short* list of simple key/value pairs. However having > read the flock() man page, I'm unsure about whether I > need to seek() in cases where I'm not merely appending > to the file (such as when deleting a record). > > s

Re: Range of dates help needed

Kevin Old" wrote: > > I have a subroutine below that uses Date::Manip to build a hash with > keys of the previous Wednesday to the next Tuesday range from the > beginning of the year until today. For instance: > > %pairs = ( > #didn't want to list the whole year, but you get the point > '10/15/200

Re: Hash Issue or Understanding

> On Thursday 30 Oct 2003 8:17 am, [EMAIL PROTECTED] wrote: > > it states in the perl docs that the sequence of the keys returned from a hash > cannot be guaranteed, and even if they always return in the same order in the > current version, that may change in a future version of perl. > Jus

Re: config file: a) what Module ? b) conditionals in config (for multiple hosts)

> Hi, > > a) I am looking for a module to handle config files. There are a number of > these modules, like AppCconig. Any consensus about The Right Module for > this? > Whichever module gets the job done the way you want it. I have used AppConfig with some success but it fails to handle over

Corrupted Data

I'm having problems with corrupted data about every month or so. The problem seems to be that the New file sometimes writes only about half the old file. I was under the impression that flock would prevent the data from being corrupted. Can anyone tel me what I am doing wrong, and what I should

Re: config file: a) what Module ? b) conditionals in config (for multiple hosts)

From: "Wiggins d Anconia" <[EMAIL PROTECTED]> > > b) As I develop one one machine and test/deploy on another, I want > > constructs in my config file like: > > > >if (`hostname` eq 'dev_box') { > > mysql_dsn = 'foobar'; > > } elsif ((`hostname` eq 'test_box'} > > mysql_dsn

RE: What is my name

> Hi, > > I have a little problem. I have script "test.pl" and inside > this script I want to know what is "my name" (I mean this "test.pl". > > test.pl script > --- > > my $this_scripts_name_is = who_am_I(); > > sub who_am_I > { > my $my_name = ; # what I have to put to this

RE: What is my name

> The $0 variable already has it so no need for a sub or a new > variable. One thing is sometimes it reurns path info also > /home/joemama/test.pl That may or may not be a bad thign > depending on what you're doing. > > Test it out with this suicidal little script (or should I say > scriptici

Re: Range of dates help needed

On Thu, 2003-10-30 at 07:06, Rob Dixon wrote: > Kevin Old" wrote: > > Basically I'd like a hash (or whatever) that looks like this: > > > > %datepairs = ( > > # Saturday to Following Friday > > '10/11/2003' => '10/17/2003', > > '10/18/2003' => '10/24/2003', > > '10/25/2003' => '10/31/2003', > > '1

Control a non-perl image viewer from perl script

Below is a (non-finished) script that trys to run a linux viewer called eog (eye of gnome) in a script that will eventually allow me to power thru long lists of image files and rename them as I go. The idea was a cmdline tool that would pop up a view of each image then query user for new name. Ki

RE: finding out my IP address..

I faced this just a couple of days ago on a FreeBSD system for em0. Here's what I did: ($in, $myip, $rest) = split / /,qx/ifconfig|grep 192.168/; print "This IP is $myip\n"; I used the FreeBSD "ifconfig" system call and parsed the output with split. Whatever system you're o

Re: Corrupted Data

In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] writes: > I'm having problems with corrupted data about every month or so. The problem >seems to be that the New file sometimes writes only about half the old file. >I was under the impression that flock would prevent the data from being >corrup

Re: Corrupted Data

In a message dated 10/30/03 10:35:08 AM Eastern Standard Time, [EMAIL PROTECTED] writes: > ] > > Why don't you post the actual code since this obviously isn't it... $old = "oldfile.txt"; $new = "newfile.txt"; open(OLD,"$old") or die "Can't Open File: $!"; flock OLD, 2;

Re: Corrupted Data

In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] wrote: > I'm having problems with corrupted data about every month or so. The > problem > seems to be that the New file sometimes writes only about half the old > file. I was under the impression that flock would prevent the data from > being cor

Re: Corrupted Data

In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] writes: > $old = "oldfile.txt"; > $new = "newfile.txt"; > > open(OLD,"$old") or die "Can't Open File: $!"; >flock OLD, 2; > open(NEW,>$new) or die "Can't Open File: $!"; > flock NEW, 2; > while () { >

Re: What is my name

On Thursday 30 Oct 2003 12:06 pm, Sudarshan Raghavan wrote: > [EMAIL PROTECTED] wrote: > >Hi, > > > >I have a little problem. I have script "test.pl" and inside this script I > > want to know what is "my name" (I mean this "test.pl". > > $0 will contain the program name > perldoc perlvar You can w

Re: Corrupted Data

From: [EMAIL PROTECTED] > $old = "oldfile.txt"; > $new = "newfile.txt"; > > open(OLD,"$old") or die "Can't Open File: $!"; > flock OLD, 2; > open(NEW,>$new) or die "Can't Open File: $!"; > flock NEW, 2; >while () { > if ($_ =~ /NO_EMAIL/) {

Re: What is my name

Le jeu 30/10/2003 à 17:56, Gary Stainburn a écrit : > You can write $0 as well as reading it, which will change what appears when > you run ps etc. > > This can be usefull for security reasons such as hiding sensitive data passed > on the command line, and also for returning status information f

RE: Hash Issue or Understanding

Gary, Thanks for the feedback. Phillip -Original Message- From: Gary Stainburn [mailto:[EMAIL PROTECTED] Sent: Thursday, October 30, 2003 1:47 AM To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: Re: Hash Issue or Understanding On Thursday 30 Oct 2003 8:17 am, [EMAIL PROTECTED] wrote:

Re: Corrupted Data

On Thu, 30 Oct 2003 09:45:58 -0500, Jimstone77 wrote: > open(OLD,">$old") or die "Can't Open File: $!"; > flock OLD, 2; > open(NEW,$new) or die "Can't Open File: $!"; > flock NEW, 2; >while () { > if ($_ =~ /NO_EMAIL/) { >$count++; >

Re: What is my name

On Thursday 30 Oct 2003 5:11 pm, Yannick Warnier wrote: > Le jeu 30/10/2003 à 17:56, Gary Stainburn a écrit : > > You can write $0 as well as reading it, which will change what appears > > when you run ps etc. > > > > This can be usefull for security reasons such as hiding sensitive data > > passed

Perl Windows question

Hi, In any unix system, I know that I need to type #!/usr/bin/perl or #!/usr/local/bin/perl for my perl scripts to execute. What is needed for windows? #!c:\somepath\perl maybe? Phillip Bruce ISC Consultant, System Architect Location: Dublin, CA * Cell: 408-476-8658 *

RE: Hash Issue or Understanding

Sudarshan, Thanks for the info. I understand now and makes sense. Phillip -Original Message- From: Sudarshan Raghavan [mailto:[EMAIL PROTECTED] Sent: Thursday, October 30, 2003 1:51 AM To: [EMAIL PROTECTED] Subject: Re: Hash Issue or Understanding >The output works but it not in the

RE: Perl Windows question

Technically, the shebang line doesn't mean anything special in Windows, with one small exception: any command-line switches like -w you put in the shebang line will be applied to the script. But these are rarely necessary, since there is usually a pragma (use warnings, in this case) that you can

Re: What is my name

And the clouds parted, and [EMAIL PROTECTED] said... > Hi, > > I have a little problem. I have script "test.pl" and inside this script I want to > know what is "my name" (I mean this "test.pl". > > test.pl script > --- > > my $this_scripts_name_is = who_am_I(); > > sub who_am_I > {

complex condition

I know there must be a way to do the following: if (($foobar > 3) || ($foo="t" && $bar = "b")) {print "yup"} Of course this is wrong, but what I want is to print yup if $foobar >3 or $foo=t and $bar=b. so: $foobar=4 $foo=a $bar=b is true $foobar=1 $foo=f $bar=b is true $foobar=1 $foo=f $bar=a is

Re: IRC bot in perl?

I'm writing an IRC service in Perl, unfortunately I can't post the source here because it's over 400k's worth of source code, plus I don't want to release it to the public, you know what some people are like, modifying the code and calling it their own. I can give you a helping hand if you need it

Re: complex condition

Steve Gilbert wrote: I know there must be a way to do the following: if (($foobar > 3) || ($foo="t" && $bar = "b")) {print "yup"} if (($foobar > 3) || ($foo eq "t" && $bar eq "b")) {print "yup"} Your problem is that a single '=' is assignment, not equality. '==' could also be used instead of 'eq

RE: complex condition

Andrew Gaffney wrote: > >Steve Gilbert wrote: >> I know there must be a way to do the following: >> >> if (($foobar > 3) || ($foo="t" && $bar = "b")) {print >> "yup"} > >if (($foobar > 3) || ($foo eq "t" && $bar eq "b")) {print "yup"} > >Your problem is that a single '=' is assignment, not equalit

Re: complex condition

Perry, Alan wrote: Andrew Gaffney wrote: Steve Gilbert wrote: I know there must be a way to do the following: if (($foobar > 3) || ($foo="t" && $bar = "b")) {print "yup"} if (($foobar > 3) || ($foo eq "t" && $bar eq "b")) {print "yup"} Your problem is that a single '=' is assignment, not equali

Mainframes

Hi, Does anyone have any advice about using perl to connect using telnet or any other TCP/IP protocols to mainframes? Phillip Bruce ISC Consultant, System Architect Location: Dublin, CA * Cell: 408-476-8658 * Office: 925-560-7853 AIM: OkieUnix

RE: Mainframes

> Hi, > Howdy >Does anyone have any advice about using perl to connect using > >telnet or any other TCP/IP protocols to mainframes? Yes, use Modules!! The Net:: (Net::Telnet for instance) modules have most everything covered, also Socket modules, DBI modules, CGI etc... Modules fo r

RE: Mainframes

Dan, I'm already using Net::Telnet module right now. What I'd like to see is some examples of those that connect to mainframes. I appreciate any other link you can provide other than Cpan. Phillip -Original Message- From: Dan Muey [mailto:[EMAIL PROTECTED] Sent: Thursday, October

Reading files in a directory

Hi all I've this Perl script to read all files in a directory and if it finds a file with a certain then rename the file to header -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: Mainframes

> Dan, > > I'm already using Net::Telnet module right now. > What I'd like to see is some examples of those > that connect to mainframes. > > I appreciate any other link you can provide other than > Cpan. Care to elaborate on exactly wht your trying to do then? That may help people post ex

RE: Reading files in a directory

> Hi all Howdy > > I've this Perl script to read all files in a directory and > if it finds a file with a certain then rename the file to header > Sounds like it might be handy. DMuey -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Reading a directory and Renaming the file

Hi all I've this Perl script to read all files in a directory and if it finds a file with a certain then rename the file to header, but is doesn't search the right directory and doesn't even look for the HPAY header. Ops forgot to include the script. #!/usr/bin/perl -w use strict; my $dir

Re: Reading files in a directory

didn't get you what do u need to ask? Aman Raheja Systems Analyst AGF Technologies www.agftech.com - Original Message - From: "James Parsons" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, October 30, 2003 1:23 PM Subject: Reading files in a directory > Hi all > > I've

RE: Mainframes

Dan, Currently I don't have access to a Mainframe. YET! To do the same thing I'm doing with opensystems. I basically telnet to the systems and run commands That will return me information about the configuration Of the system. Phillip -Original Message- From: Dan Muey [mai

Re: What is my name

> On Thursday 30 Oct 2003 5:11 pm, Yannick Warnier wrote: > > Le jeu 30/10/2003 à 17:56, Gary Stainburn a écrit : > > > You can write $0 as well as reading it, which will change what appears > > > when you run ps etc. > > > > > > This can be usefull for security reasons such as hiding sensitive d

RE: What is my name

> > On Thursday 30 Oct 2003 5:11 pm, Yannick Warnier wrote: > > > Le jeu 30/10/2003 à 17:56, Gary Stainburn a écrit : > > > > You can write $0 as well as reading it, which will change what > > > > appears when you run ps etc. > > > > > > > > This can be usefull for security reasons such as hiding

RE: Reading a directory and Renaming the file

> Hi all > > I've this Perl script to read all files in a directory and > if it finds a file with a certain then rename the file to > header, but is doesn't search the right directory and doesn't > even look for the HPAY header. > What format are these "headers" in in the file? Assuming t

Password Authentication

Hello: I'm attempting to create a CGI script for password requests that will be sent to my email address using Perl SMTP in a Windows environment on an Apache web server. My SMTP server requires authentication. I've tried using the instructions in the documentation, but it's not working. Here's

Re: Password Authentication

Art Mahanna wrote: Software error: Can't locate Authen/SASL.pm in @INC (@INC contains: D:/Perl/lib D:/Perl/site/lib .) at D:/Perl/lib/Net/SMTP.pm line 101. For help, please send mail to the webmaster ([EMAIL PROTECTED] ), giving this error message and the time and date of

Re: Corrupted Data

In a message dated 10/30/03 12:04:07 PM Eastern Standard Time, [EMAIL PROTECTED] writes: > Yes there is. (Apart from the typo on the open(NEW,...) line.) > > The problem is that things could happened between you close the old > file and rename the new one. And even more likely there can be a

tip with expect+sending '~.'

Hello Perl'ers I am trying to automate some stuff that I normaly do using tip command. I am wondering if anyone can give me a hint how I can go about sending special signal such as '~.' or '~#' ' Thanks in Advance, Mark G -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional comma

RE: Password Authentication

> Hello: Howdy > > I'm attempting to create a CGI script for password requests > Software error: > Can't locate Authen/SASL.pm in @INC (@INC contains: > D:/Perl/lib D:/Perl/site/lib .) at D:/Perl/lib/Net/SMTP.pm You can do two things: 1) install Authen::SASL 2) Try to use a different type

Data::Dumper->dump()ing a hash?

When I use the following code to dump a hash: $entry{"genre"} = $genre; $entry{"artist"} = $artist; $entry{"album"} = $album; $entry{"disc"} = $disc; $entry{"file"} = $file; $entry{"fullpath"} = $fullpath; my $dumper = Data::Dumper->new( [%entry], [ qw () ] ); my $

Re: Range of dates help needed

Kevin Old wrote: > > On Thu, 2003-10-30 at 07:06, Rob Dixon wrote: > > Kevin Old" wrote: > > > Basically I'd like a hash (or whatever) that looks like this: > > > > > > %datepairs = ( > > > # Saturday to Following Friday > > > '10/11/2003' => '10/17/2003', > > > '10/18/2003' => '10/24/2003', > > >

Web-based calendar script

Hello, I am looking for a Web-based calendar manager, preferably one that uses postgres or mysql, Perl DBI, or plain text. Can anyone recommend one? I mean one that is easy to use and manage. __ William Ampeh (x3939) Federal Reserve Board -- To unsubscribe, e-mail: [EMAI

RE: Web-based calendar script

I just discovered http://www.sweetphp.com/projects/TotalCalendar/ Im REALLY REALLY liking it. Jeff PS: If you contact the author (he is really a cool guy), let him know I referred you to him. -Original Message-

Re: What is my name

In article <[EMAIL PROTECTED]>, Brian Gerard wrote: [...] > I ran into exactly this issue, but I wanted to just get the actual script > name. $0 returns the entire path the script was invoked as. ie - $0 > could be "../../foo/bar/blarch/scriptname.pl", but I just wanted > "scriptname.pl". > > He

Re: Data::Dumper->dump()ing a hash?

In article <[EMAIL PROTECTED]>, Dan Anderson wrote: > When I use the following code to dump a hash: [...] > I've figured out that I can use qw() to change the variable names, but > is there any way to either get an output like the code that created the > hash, or in the form: > > $hash = { >

Re: Data::Dumper->dump()ing a hash?

On Thu, 2003-10-30 at 16:53, Dan Anderson wrote: > When I use the following code to dump a hash: > > $entry{"genre"} = $genre; > $entry{"artist"} = $artist; > $entry{"album"} = $album; > $entry{"disc"} = $disc; > $entry{"file"} = $file; > $entry{"fullpath"} = $fullpath; >

RE: Web-based calendar script

It's PHP eee :) > -Original Message- > From: Jeffrey Pearson [mailto:[EMAIL PROTECTED] > Sent: Thursday, October 30, 2003 4:19 PM > To: [EMAIL PROTECTED]; [EMAIL PROTECTED] > Subject: RE: Web-based calendar script > > > I just discovered > > http://www.sweetphp.com/projects/T

Re: Data::Dumper->dump()ing a hash?

In article <[EMAIL PROTECTED]>, Kevin Old wrote: [...] > my %entry; > > $entry{"genre"} = "Rock"; > $entry{"artist"} = "3 Doors Down"; > $entry{"album"} = "Away from the Sun"; > $entry{"disc"} = "Away from the Sun"; > $entry{"file"} = "3dd.mp3"; > $entry{"fullpath"} = "/mp3

Face lift survey

Here's a thought I'd like to get opinions on... A recent post that talked about a php calendar script got me thinking. One thing that draws people who don't know better to PHP over Perl is that the php scripts they can get look really really nice, phpbb, for instance. Those developers have spent m

Re: Data::Dumper->dump()ing a hash?

On Thu, 2003-10-30 at 18:09, Kevin Pfeiffer wrote: > In article <[EMAIL PROTECTED]>, Kevin Old > wrote: > [...] > > my %entry; > > > > $entry{"genre"} = "Rock"; > > $entry{"artist"} = "3 Doors Down"; > > $entry{"album"} = "Away from the Sun"; > > $entry{"disc"} = "Away from the Sun

RE: complex condition

> -Original Message- > From: Steve Gilbert [mailto:[EMAIL PROTECTED] > Sent: Thursday, October 30, 2003 9:08 AM > To: [EMAIL PROTECTED] > Subject: complex condition > > > I know there must be a way to do the following: > > if (($foobar > 3) || ($foo="t" && $bar = "b")) {print > "yup"} >

Image conversion modules?

Could someone recommend a good image file conversion/manipulation module? I'm having trouble finding one that actually works... Here are my requirements: *Must run under Mac OS X (10.3, but if it tested to earlier it should be fine.) *Must handle the following image formats: TIFF, PNG. *Must be

watch out for virus masquerading as Microsoft

Since I subscribed to this forum this afternoon I've received four separate emails containing the [EMAIL PROTECTED] virus. This email arrives masquerading as a Microsoft public service, supposedly containing patches for Outlook. As Microsoft has stated, they DO NOT send patches through email. --

Splitting OR Regex

Hello, How can I split the data in a line by a single whitespace but also keep portions between quotes together? Here is an example of a line of data I'm trying to parse: id=firewall time="2003-10-30 04:15:01" fw=66.74.67.229 pri=5 c=256 m=38 msg="ICMP packet dropped" n=63211 src=1.1.1.1 dst=2.2

Re: Reading a directory and Renaming the file

James Parsons wrote: Hi all I've this Perl script to read all files in a directory and if it finds a file with a certain then rename the file to header, but is doesn't search the right directory and doesn't even look for the HPAY header. Ops forgot to include the script. #!/usr/bin/perl -w