File Handle.

Dear Friends, I have a small task . Actually I have the following line in SCRIPT system ("$netsvc $host /query \"$service\"") == 0 and warn "+error $!" ; But I want this OUTPUT to be sent in a mail, either by sending it in a Attachment or As a text in Mail. Please suggest me how to redirect

Re: Reusing $1?

Thank-you. I don't recall that Camel mentioning the white-space subtlety, but I also haven't hit chapter 5 yet. /(.*?):/ gives me what I needed. At 09:17 PM 08/23/01, you wrote: >On Aug 23, Rob Waggoner said: > > >while ($line = ) { > > $line =~ /\[(.+)\] /; # get date time value betwe

Re: Reusing $1?

On Aug 23, Rob Waggoner said: >while ($line = ) { > $line =~ /\[(.+)\] /; # get date time value between [] > $ThisDateTime = $1; # should look like 19/Aug/2001:06:28:45 -0600 > > # this works > #($ThisDate, $Junk) = split(/:/, $ThisDateTime); > > # th

Reusing $1?

>In the below code, is the backreference $1 useable as I am intending? #!/usr/bin/perl -w =Script Info:= # # Script : CountCodeRed.pl # Purpose: to scan apache web server access log files and # count the number or cod

RE: Afew questions and request for help.

ok, say the web page looks something like this (Very simple) http://www.excelgames.com/sample2.htm goto that and look it over it gicves a visual example of what I'm trying to do. As for what type or format of file, it doesn't matter as I haven't made it yet, as long as the same file can be read

Re: Afew questions and request for help.

On 8/23/01 6:29 PM, Duston S. Horacek wrote: > > Hello, I'm looking to make a script that will load data into text boxes on a > web page from a file off the web host, and then allow other text boxes to be > modified by the user, then resaved to the same file.. > > For instance > > WEB PAGE LOA

Afew questions and request for help.

Hello, I'm looking to make a script that will load data into text boxes on a web page from a file off the web host, and then allow other text boxes to be modified by the user, then resaved to the same file.. For instance WEB PAGE LOADS GDP : 1,000,000 (This value is loaded from a text file off

RE: Sending emails: Question

Hi Ricardo -- Thanks for the help... I figured out the problem. I was missing this part of the email: Content-Type: multipart/parallel; boundary=SoMeBoUnDaRyStRiNg I had listed the content-type but didn't put the bounday=$time_variable [ie (sprintf("%x", time) ]. thanks. Mike PS here's the

Thanks for the recent discussion on Perl and high level languages.

To All: I just want to thank everyone who participated in the last PERL IS NOT A HIGH LEVEL LANGUAGE discussion. I learned a lot. You wouldn't think that such a discussion would be useful, but just today, I got into a ("friendly") flame war with one of my friends (it was on, of all thin

How to close ALL open file descriptors

I open lots of file descriptors in a script. At one point, I want to close all the opened file descriptors (except for stdin, stdout, stderr). Is there a way to close all the opened file descriptors without having a list of the handles ? ***

Re: Strange foreach need..........

On Thu, Aug 23, 2001 at 05:28:42PM -0600, Gary Luther wrote: > I have a file that has paired lines, in other words I need to process them kinda >like one line. > > Let me 'splain. > > I read a file into the array @rename > > foreach $lines (@rename) { > do a bunch of stuff here > now I nee

Re: Strange foreach need..........

On Aug 23, Gary Luther said: >foreach $lines (@rename) { > do a bunch of stuff here > now I need to read the next line to get some info > that needs to be processed with the first line info > I want to be able to do something like??? > $line2=<@rename>; > do some stuff on $line2 > write ou

Strange foreach need..........

I have a file that has paired lines, in other words I need to process them kinda like one line. Let me 'splain. I read a file into the array @rename foreach $lines (@rename) { do a bunch of stuff here now I need to read the next line to get some info that needs to be processed with the f

Re: is this sub called correctly? am I missing something?

Hello Birgit, Thursday, August 23, 2001, Birgit Kellner <[EMAIL PROTECTED]> wrote: BK> my ($db_key, %rec); BK> # %orderhash contains numeric keys and values, like ('43' => '5', '20' => BK> '17'); I want to call the sub get_record for each of these keys. BK> # NOTE: this works perfectly, with th

Re: string checks

On Thu, Aug 23, 2001 at 06:10:48PM -0500, [EMAIL PROTECTED] wrote: > What is the best way in Perl to do the following? Define best. Is it fastest? Most readable? Most clever? > Check $string to see if the following path is found /this is right/ > If found anywhere in the string return 1, if

string checks

What is the best way in Perl to do the following? Check $string to see if the following path is found /this is right/ If found anywhere in the string return 1, if not return 0. The whole pattern must be found just like written. Robert ( Kent ) Collins: IBM Certified Solutions Expert Cell Pho

Re: redirecting print output to a variable

Hello Bas, Thursday, August 23, 2001, Bas Bloemsaat <[EMAIL PROTECTED]> wrote: BB> I've got this code: BB> #Example of generated code. I have little influence over the actual code in BB> the variable. It's generated from a template. BB> $generatedCode = '$test = "some result"; print "test is: $

Re: a1.a2.a3.a4 -> integer

Hello P, Friday, August 24, 2001, P lerenard <[EMAIL PROTECTED]> wrote: Pl> I can transform an ip a1.a2.a3.a4 to an integer using Pl> b1=a1 << 24 Pl> b2=a2 << 16 Pl> b3=a3 << 8 Pl> int =b1+b2+b3+a4 Pl> now I want to do the opposite. Pl> how can I get a1.a2.a3.a4 from this integer? Pl> ok I get a

Re: Looking for help with the Translate operator

On Aug 23, Carl W Rogers said: >I don't know if this is possible... But I'm trying to replace the high-hex >symbol for one-half (\xBD) with 1/2 No, you have to use a substitution (s///) for that. tr/// is for character-to-character translations. >$variable =~ tr/[\xBD]/"1/2"/;

Looking for help with the Translate operator

Good day; I don't know if this is possible... But I'm trying to replace the high-hex symbol for one-half (\xBD) with 1/2 This is what I've tried so far: $variable =~ tr/[\xBD]/"1/2"/; #tr doesn't like this, so I tried... $replacement = "1/2"; $variable =~ tr/[\xBD]/$replacemen

RE: a1.a2.a3.a4 -> integer

On Aug 23, Gibbs Tanton - tgibbs said: >$a4 = $x & 0xFF; >$a3 = ($x>>8) & 0xFF; >$a2 = ($x>>16) & 0xFF; >$a1 = ($x>>24) & 0xFF; D'oh, I forgot -- & is faster than %. while ($x) { unshift @parts, $x & 256; $x >>= 8; } -- Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.p

RE: a1.a2.a3.a4 -> integer

I think you can get it by shifting the correct number of bits and masking off the lower 8 bits. my $x = $b1+$b2+$b3+$b4; $a4 = $x & 0xFF; $a3 = ($x>>8) & 0xFF; $a2 = ($x>>16) & 0xFF; $a1 = ($x>>24) & 0xFF; Good Luck! Tanton -Original Message- From: P lerenard To: [EMAIL PROTECTED] Sent

Re: a1.a2.a3.a4 -> integer

At 02:08 PM 08/23/01, [EMAIL PROTECTED] wrote: >THIS IS NOW THE 5TH REQUEST. TAKE ME OFF THIS ALIAS. That's not very productive for this list. What pard of this link didn't you understand? List-Unsubscribe: Sen a blank email there. -- To unsubscribe, e-mail: [EMA

Re: a1.a2.a3.a4 -> integer

On Aug 23, P lerenard said: >I can transform an ip a1.a2.a3.a4 to an integer using >b1=a1 << 24 >b2=a2 << 16 >b3=a3 << 8 >int =b1+b2+b3+a4 >now I want to do the opposite. >how can I get a1.a2.a3.a4 from this integer? >ok I get a1, but I start to have a headeach to get the rest Do: while ($x)

a1.a2.a3.a4 -> integer

THIS IS NOW THE 5TH REQUEST. TAKE ME OFF THIS ALIAS. "P lerenard" cc:

a1.a2.a3.a4 -> integer

Hi, I can transform an ip a1.a2.a3.a4 to an integer using b1=a1 << 24 b2=a2 << 16 b3=a3 << 8 int =b1+b2+b3+a4 now I want to do the opposite. how can I get a1.a2.a3.a4 from this integer? ok I get a1, but I start to have a headeach to get the rest Thanks Pierre __

sendmail and newlines

Situation: My perl script (see Code: below) is being handed a flatfile (see File: below) generated from a database to do a mass mailing that will send a message generic to the flatfile but with each recepient receiving a unique username and password. The message part of the file is being input by

Re: Sending emails: Question

Hi all. I´m sending attachments with the following code: (it works ok with mailserver running MS Exchange, and other mailservers too) ### #!/usr/bin/perl use MIME::Lite; use strict; my $subject = "Here goes the subject"; my $attachfile = "File_to_Attach"; my $m

redirecting print output to a variable

Hi, I've got this code: #Example of generated code. I have little influence over the actual code in the variable. It's generated from a template. $generatedCode = '$test = "some result"; print "test is: $test";'; open MYFILE, ">somefile"; select(MYFILE); my $testvar = eval "$generatedCode"; sel

RE: Sending emails: Question

HI -- Has anyone had a similar problem when sending email with attachments?? Thanks Mike -Original Message- From: Mike Rapuano Sent: Thursday, August 23, 2001 2:07 PM To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED]; Mike Rapuano Subject: Sending emails: Question Hi all -- I'm tryin

Re: is this sub called correctly? am I missing something?

On Thu, Aug 23, 2001 at 07:52:04PM +0200, Birgit Kellner wrote: > my ($db_key, %rec); > # %orderhash contains numeric keys and values, like ('43' => '5', '20' => > '17'); I want to call the sub get_record for each of these keys. > # NOTE: this works perfectly, with the same syntax, in other parts

Re: The > symbol in a variable

At 11:20 AM 8/23/01 -0700, Buffy Press wrote: >Hello, > >I am *very new* to Perl and to this list. I have a question I am hoping >someone can answer. I am looking over an existing Perl script and came >across this block of code: > > # Create the cmdfile > my $runprog = "$NexBase::idxBase/cmdf

RE: is this sub called correctly? am I missing something?

--On Donnerstag, 23. August 2001 13:01 -0500 "Daryl J. Hoyt" <[EMAIL PROTECTED]> wrote: > I do not believe that you need the "&" before the function call. I thought so, but leaving it out doesn't solve my problem either. - But thanks anyway. Birgit Kellner -- To unsubscribe, e-mail: [EMA

The > symbol in a variable

Hello, I am *very new* to Perl and to this list. I have a question I am hoping someone can answer. I am looking over an existing Perl script and came across this block of code: # Create the cmdfile my $runprog = "$NexBase::idxBase/cmdfiles/$indexname > $cmdfile"; exit $? if system($runpro

Sending emails: Question

Hi all -- I'm trying to send an email with an attachment from the below code (Gary MacDonald posted the code on activestate. Thanks Gary:-). The code works fine to send email to my Imail Server (type of nt mail server) but when I try to send a message to either ny yahoo mail account or my exchan

RE: is this sub called correctly? am I missing something?

I do not believe that you need the "&" before the function call. -Original Message- From: Birgit Kellner [mailto:[EMAIL PROTECTED]] Sent: Thursday, August 23, 2001 12:52 PM To: [EMAIL PROTECTED] Subject: is this sub called correctly? am I missing something? I have a sub called and it do

RE: hash of ref to array of arrays, lost all but the last element in hash

> -Original Message- > From: Jennifer Pan [mailto:[EMAIL PROTECTED]] > Sent: Thursday, August 23, 2001 1:05 PM > To: [EMAIL PROTECTED] > Cc: Maxim Berlin > Subject: hash of ref to array of arrays, lost all but the last element > in hash > > > Dear all, > > I would like to construct a h

is this sub called correctly? am I missing something?

I have a sub called and it doesn't return what it's supposed to return - am I blind or is there something I am missing out on? The script runs with "use strict", and no errors are reported. my ($db_key, %rec); # %orderhash contains numeric keys and values, like ('43' => '5', '20' => '17'); I wa

Weekly list FAQ posting

NAME beginners-faq - FAQ for the beginners mailing list 1 - Administriva 1.1 - I'm not subscribed - how do I subscribe? Send mail to <[EMAIL PROTECTED]> You can also specify your subscription email address by sending email to (assuming [EMAIL PROTECTED] is your email address)

Re: fatal subroutine

At 03:06 PM 8/21/01 +0100, Andre P. wrote: >Hi, > >I am transfering a script which is calling the fatal subroutine. On the >new machine I am getting the following error: >Undefined subroutine &main::fatal called at > > >This happens when writing: &fatal("blah"); > >Wher is the fatal function

Re: Databases and Perl

At 11:39 AM 8/23/01 -0500, [EMAIL PROTECTED] wrote: >I am in the process of developing perl code to create and populate a >oracle database. Have anyone out there in PerlLand ever developed a >process that will create a oracle database, tablespaces and create tables >and indexes? If yes, would yo

hash of ref to array of arrays, lost all but the last element in hash

Dear all, I would like to construct a hash, whose value holds a reference to an array of arrays, however all the keys in my hash have the exact same value, which turns out to be the value of the last element I put it!! I felt that something is wrong in the data structure, that I should not keep

Comparison

Hi, If some one can help me out please I am brand new to Perl I wrote a prog which is working fine except for few glitches It should read two text files compare the snap.txt with base.txt and spit out the name of task which is not running in last hour or so The snap log file has list of tasks whic

Removing Modules

Any ideas on how to remove unwanted modules? And what happens if they have been intertwined with a DLL? TIA, Danial __ Do You Yahoo!? Make international calls for as low as $.04/minute with Yahoo! Messenger http://phonecard.yahoo.com/ -- To u

Databases and Perl

I am in the process of developing perl code to create and populate a oracle database. Have anyone out there in PerlLand ever developed a process that will create a oracle database, tablespaces and create tables and indexes? If yes, would you mind sharing your code? DB2 would work just as we

Re: Regex help

On Aug 23, Michel Blanc said: >> sub unique_char_set { >> my ($str, $chars) = @_; >> return 0 if $str =~ /[^\Q$chars\E]/; >> return !($str =~ /(.).*?\1/s); >> } > >Thanks for your response guys. This is very useful. > >In fact, since I needed a one liner (I forgot to say that) for

RE: perl version

On Aug 23, HOLLAND-MORITZ,MARCUS (A-hsgGermany,ex1) said: >| how could i know which perl version i am using : any command >| on unix/linux > > perl -v Or, if you're sick like me, perl -version number, please -- Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ R

Re: Strip charactes from every element in array

When you do a for loop : for (@array) { s/1//g; } the implicit $_ in the loop becomes an alias for the real element - so by modifying the element in the loop you're actually modifying the "real" one in the array. Luke PS you could use map here as well, but it's in a void context - big

RE: Strip charactes from every element in array

| and if the character isn't there | | @array(one1 two three1); | | I end up with | | one tw three @array = qw(one1 two1 three1); s/\d+$// for @array; print "@array"; -- Marcus | -Original Message- | From: John Edwards [mailto:[EMAIL PROTECTED]] | Sent: Thursday, August 23, 2001

RE: Strip charactes from every element in array

| Is there any easy way to strip a single character from every | element in an | array? @array = qw(one1 two1 three1); chop @array; print "@array"; Hope this helps. -- Marcus | -Original Message- | From: John Edwards [mailto:[EMAIL PROTECTED]] | Sent: Thursday, August 23, 2001 4:45 P

Strip charactes from every element in array

Is there any easy way to strip a single character from every element in an array? @array = qw(one1 two1 three1); And I need the elements to be (one two three). My only idea is copy to another array, run a foreach, s/// the char out and push into another array, then after the foreach has finish

RE: Perform a tar command on a directory

Hans, Here is one way to do it: #!/usr/bin/perl -w use strict; use POSIX; # variable declarations my $dir_name= "samples"; my $source_dir = "$ENV{HOME}/work_area/scripts"; my $gdir; print "Changing current directory to...Source dir ..$source_dir\n"; chdir "$source_dir"; #

RE: Regex help

A one liner would be $is_bad = $string =~ /[^cCdeEfGhiIkKlLmMrRstTvVxX]/ || $string =~ /(.).*\1/; naturally...if you need only one regex then you could say $is_bad = $string =~ /[^cCdeEfGhiIkKlLmMrRstTvVxX]|((.).*\2)/; I'm not sure if the character class is right for your app (I don't know the ex

RE: Append array in hash of arrays under strict

> -Original Message- > From: John Edwards [mailto:[EMAIL PROTECTED]] > Sent: Thursday, August 23, 2001 10:15 AM > To: Perl Beginners (E-mail) > Subject: Append array in hash of arrays under strict > > > Here's some sample code > > --- > use strict; > > my (%hash, @array, @results); >

Perform a tar command on a directory

Does anyone have a good suggestion how to go about creating a tar ball of a directory from within a Perl script? I considered doing a change directory just above the directory which I want to tar and then using the UNIX tar command from within the script. Is this the best approach? Thanks! Hans

RE: usage of require

> -Original Message- > From: Oliver Velten [mailto:[EMAIL PROTECTED]] > Sent: Thursday, August 23, 2001 9:32 AM > To: '[EMAIL PROTECTED]' > Subject: usage of require > > > Hi, > > I wrote a perl programm where i have a lot of strings defined > and a lot > of configuration data. To hav

Re: Regex help

Bob Showalter a écrit : > > If you want to match any of those characters (and no other) in any order, > but at most once, here is a non-regex approach (not terribly efficient > if you need to do it millions of times, but it works): > > use strict; > > my $key = 'cCdeEfGhiI'; # legal chars >

Append array in hash of arrays under strict

Here's some sample code --- use strict; my (%hash, @array, @results); $hash{'name'}{'sub'} = qw(one two three four); @array = qw(five six seven eight); $hash{'name'}{'sub'} = ($hash{'name'}{'sub'}, @array); print @{$hash{'name'}{'sub'}}; --- This produces an error "Can't use string ("4") as

Re: Regex help

Jeff 'japhy/Marillion' Pinyan a écrit : > Someone else has already shown the general approach for ensuring a > unique-character string: > > sub unique_characters { > $_[0] =~ /(.).*?\1/s ? 0 : 1 > } > > We can extrapolate upon this idea and test afterward that the string > doesn't conta

RTF Generator vs. RTF Writer?

I am looking for a module that allows generation of RTF documents from perl. The idea is to take output from database searches and generate documents with specific fonts, so that users can print out (or do whatever else they want to do with) these documents. CPAN informs that there ar

RE: Using the B module?

Paul brings up a good point. You can do something like this: package OurPackage; BEGIN { my $filename = (caller(2))[1]; # now, open $filename and make sure it only uses what you want # and how you want it used. } in their file use strict; use OurPackage; <-- BEGI

Re: usage of require

perhaps you want to 'use' or even 'do' your module but it depends on the error you are getting perhaps you can provide a bit more context? Jos - Original Message - From: "Oliver Velten" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, August 23, 2001 3:32 PM Subject: usage of

Re: More problems printing dereferencing an array within an struct

On Thu, Aug 23, 2001 at 09:31:52AM -0400, Craig Moynes/Markham/IBM wrote: > This round I have encountered another similar problem. The code sample > works for printing out the scalars, but when I attempt to print out the > arrays instead the size of the arrays are printed, causing no end to > co

Re: Using the B module?

On Thu, Aug 23, 2001 at 03:22:54PM +0200, Edwin Günthner wrote: > maybe someone can tell me where I can find > some SIMPLY examples/tutorials of how to use the B package - Hardly for beginners, but you probably want to take a look at B::Utils. As far as tutorials are concerned, I think you migh

More problems printing dereferencing an array within an struct

Wags helped me with the last problem (though we are still unsure of the reason for the behavior). This round I have encountered another similar problem. The code sample works for printing out the scalars, but when I attempt to print out the arrays instead the size of the arrays are printed, cau

usage of require

Hi, I wrote a perl programm where i have a lot of strings defined and a lot of configuration data. To have a handy file where all configuration is stored and can be easily changed I want to use the require function. So I put after use CGI; a require config; I created a file called config and

Using the B module?

Hi there, I would like to perform a special check on scripts before they are evaluated. We have this situation: * we provide a set of functions * our users should use just these functions, nothing else Therefore, a typical script would look like this: use Ourlib; ourSub("arg1", 2, "arg");

inquiry/variables

I have #search and store foreach my $pattern (@patterns) { while ($query_src=~ /$pattern/g) { $query_counts{$pattern}++; } while ($sbjct_src=~ /$pattern/g) { $sbjct_counts{ $pattern }++; } } and foreach my $key (sort @patterns) { print OUT "\t '$key' seen $query_count

RE: Perl is amazing!!

This link takes you to a great beginner's page. I find it very useful and still reference it occasionally. http://www.cs.unm.edu/~bwylie/perl/start.html -Original Message- From: Randy5235 [mailto:[EMAIL PROTECTED]] Sent: Tuesday, August 21, 2001 7:18 AM To: [EMAIL PROTECTED] Subject: Pe

RE: How to tie a hash of arrays

> -Original Message- > From: G Harper [mailto:[EMAIL PROTECTED]] > Sent: Thursday, August 23, 2001 2:58 AM > To: [EMAIL PROTECTED] > Subject: How to tie a hash of arrays > > > Is there an easier way than MLDBM? It's all I've found. I need to > store/retreive a DBM hash with 7 keys, eac

RE: Debug help

> -Original Message- > From: Scott Taylor [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, August 22, 2001 6:46 PM > To: [EMAIL PROTECTED] > Subject: Debug help > > > Hi all, > I snatched this guest book off some script site Be careful. A lot of that stuff on "script sites" is pure crapol

Perl/TK GUI IDE? Does one exist?

Hi, As some of you know... developing TK can be time consuming. Does anyone know, even in its simplest form, of a perl TK IDE tool? Idealy on the windows platform. Perl Builder doesn't really have a VC++ style IDE where you can create yoru window look and feel. Regards, Pierre Smolarek Int

Re: perl version

Hi, Useperl -v dinesh -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: perl version

| how could i know which perl version i am using : any command | on unix/linux perl -v or (more verbose) perl -V -- Marcus | -Original Message- | From: Rahul Garg [mailto:[EMAIL PROTECTED]] | Sent: Thursday, August 23, 2001 1:14 PM | To: [EMAIL PROTECTED] | Subject: perl version

perl version

how could i know which perl version i am using : any command on unix/linux

Administrators Mailing Groups ???

Dear All, I am new to PERL .Perl is very Interesting and Useful it seems. Please tell me is there any Mailing List for Admin activities Using Perl(Windows NT & UNIX environments). I am interested in writing some scripts using PERL on Administrative purpose.. Please Help me in this regards, Pleas

Re: Perl is amazing!!

Hello Randy, I wrote some beginners tutorials you might find usefull on http://japh.nu Also, I'd recommend the camel book (programming perl, by larry wall, published by o'reilly) and the llama book (learning perl, by randal schwartz, also published by o'reilly). hth, Jos Boumans "Randy5235" <

Re: counting

yes but here the result of $count will always be 0, it should see the imput file and count tell me how many processed lines I hve in total, for the momento it is presentig all the precessed lines, so it gives an out put that says proceseed line 1 procesed line 2 and so on, but for th fineal re