[OT] Farewell for now..
I have to unsubscribe from the mailing list due to incompetence of others (not you). Basically the sysadmin turned off the Auto-Archiver on everyone's Outlook because someone lost an important e-mail to it. And we are forced to use Outlook (what I would do for a POP3 server at our work place)... so unless you gurus out there have any ideas how I can Perl my way into organizing my e-mail via Outlook, (without admin privs), I am going to have to rely solely on my skillz and books. E-mail me direct if you have an idea, as of this e-mail I am unsubscribed. (no I don't want to do the digest because it's not as fun!) Good luck to all, Nikola Janceski Research is what I'm doing when I don't know what I'm doing. -- Wernher Von Braun (1912-1977) The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
command help using open/backticks
Here's my situation... I have a command I need to run and parse the output of, BUT the command is longer than 255 characters. is there a way to use the PROGRAM LIST format for backticks or open the same way you can for exec and system? Nikola Janceski There is no great concurrence between learning and wisdom. -- Francis Bacon The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: command help using open/backticks
I have found one work around, but I was hoping there would be some other way.. perhaps this suggestion can make it into Perl 6? current work around: perldoc perlipc search for execute something without the shell's interference -Original Message- From: Nikola Janceski [mailto:nikola_janceski;summithq.com] Sent: Thursday, November 07, 2002 11:21 AM To: Beginners (E-mail) Subject: command help using open/backticks Here's my situation... I have a command I need to run and parse the output of, BUT the command is longer than 255 characters. is there a way to use the PROGRAM LIST format for backticks or open the same way you can for exec and system? Nikola Janceski There is no great concurrence between learning and wisdom. -- Francis Bacon -- -- The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: chgrp
Facinating, so is that a no? -Original Message- From: John W. Krahn [mailto:krahnj;acm.org] Sent: Thursday, November 07, 2002 1:41 PM To: [EMAIL PROTECTED] Subject: Re: chgrp Nikola Janceski wrote: I know there is a chmod function in Perl, but is there a chgrp function or module? perldoc -f chown John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Localizing variables
the second 'my $var2' will have memory allocated to it, but will not be
freed until Perl ends, but Perl will re-use that memory allocation after
leaving the {BLOCK}.
-Original Message-
From: Jason Frisvold [mailto:friz;corp.ptd.net]
Sent: Tuesday, November 05, 2002 4:43 PM
To: [EMAIL PROTECTED]
Subject: Localizing variables
I'm curious if there are any side effects to doing the following :
#!/usr/bin/perl
use strict;
use warnings;
my $var1 = test1;
my $var2 = this is not test2;
{
my $var2 = test2;
print $var1 - $var2\n;
}
print $var1 - $var2\n;
What I'm trying to do is create a temporary variable within the main
body of the program. I don't want that variable to stick
around after I
use it (which is directly after I declare it) ...
In most cases, I'll be using unique variable names within that local
block. The idea is that I want to release the memory associated with
those local variables without carrying them around. The rest of the
program definitely uses a lot more memory, but good memory management
dictates that I release it when I'm done with it. I never need that
inner $var2 again, so why bother leaving it around?
--
---
Jason 'XenoPhage' Frisvold
Senior ATM Engineer
Penteledata Engineering
[EMAIL PROTECTED]
RedHat Certified - RHCE # 807302349405893
---
Something mysterious is formed, born in the silent void.
Waiting alone
and unmoving, it is at once still and yet in constant motion.
It is the
source of all programs. I do not know its name, so I will call it the
Tao of Programming.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Connecting to a drive
remember what \ does in these try: system net use m: $nodec\\$ file:///$node\\c\\$ user:/username password; remember for one \ you need \\ for 2 \ you need -Original Message- From: Larry Sandwick [mailto:lgs;sarreid.com] Sent: Monday, November 04, 2002 3:31 PM To: [EMAIL PROTECTED] Subject: Connecting to a drive Hello, I am trying to write a Perl script that will replicate a directory on one computer to another. All of the computers are running XP. I do have administrative privileges. The problem is when I run the line below I never get connected to the computer from within the scripted. system net use m: \\$node\\c\$ file:///\\$node\c\$ user:/username password; The error I get from the line is a syntax error. If I map the drive manually my script works.(That's no good when you have to do it 40 times ) Any suggestions would be appreciated Thanks for your help! Larry Sandwick Sarreid, Ltd. Network Administrator (252) 291-1414 x223 The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Silly question
let's suppose $variable = some text; print $variable\n; # prints: some text print '$varibale\n'; # prints: $variable\n get it? double quotes interpolate - expands variables and special characters. single quotes do not interpolate - it's all just plain text don't think of them as variables or special characters. -Original Message- From: Gajo Csaba [mailto:[EMAIL PROTECTED]] Sent: Thursday, October 31, 2002 2:20 PM To: perl-beginners Subject: Silly question While I'm at silly questions, I guess I could ask this one too: what is the difference between a and a ' '. I have a book that explains it to me in one sentence, and I don't understand one word that the author's using (I suck at English), so could someone explain it to me? An example would be nice too :) Thanx, Csaba -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: perl cgi security
If you don't want them to comprehend your code, be sure to add lots of code that will never get run and remove all comments and any whitespace that really isn't needed, and through in a poem or two and u will have code that know won wood wont 2 reed n it will look kinda like this reply. -Original Message- From: Abel Lucano [mailto:abel;decode.com.ar] Sent: Monday, October 28, 2002 4:35 PM To: Jim Lundeen Cc: Admin-Stress; [EMAIL PROTECTED] Subject: Re: perl cgi security I understand instead that you want 'hide' your script Perl code Humm...even Perl masters bring you their best written scripts. The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Decoding code.
(split/,/)[1..8,0]
this splits $_ on the , and moves the first element to the 9 position.
ie. $_ = '111,222,333,444,555,666,777,888,999,000';
will now be returned as an array (222, 333, 444, 555, 666, 777, 888,
999, 111)
notice: no matter how long the $_ is and how many , it has it only returns 9
elements where the first one is moved to the last place and the rest gone..
I think you can guess what:
(split/\W/)[8,0..7]
does now.
as for sorting.. remember that for the sort() function any sorting
subroutine (anonomous or referenced) must return -1, 0, or 1. It took some
practice to get it down the first time, but after that I am now the Sort
King in my office when it comes to Perl.
-Original Message-
From: Patrick Salmon [mailto:pat;salmonfamily.org]
Sent: Monday, October 28, 2002 10:41 AM
To: [EMAIL PROTECTED]
Subject: Decoding code.
I've been working on sorting by IP Address in an output file
that comprises field1(hostname), field2(hosttype), IP Address.
[snip]
print
map{sprintf((%d.%d.%d.%d,x2).%s\n,(split/,/)[1..8,0])} #
Break the IP addresses into numeric strings. Do it 2 times.
# Is the '%s\n' identifying the final (text) field? Then
it'll 'split' the record on each delimiting comma.
sort
map{sprintf%s.,%3dx8,(split/\W/)[8,0..7]}
# Put it back together in the same field sequence? Don't
quite see how the USA entry is being put back into the string.
# Why 'split', and not 'join'?
DATA
1.2.3.4,1.2.3.255,USA
2.3.4.0,2.3.4.25,USA
What's really causing my head to ache is not fully
understanding what the [1..8,0] and [8,0..7] values are doing
and their effect upon the resulting string. Does the '8'
value reflect the total number of IP fields to be worked on?
What's happening with the final string of text?
[snip]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Trailing 5 lines of a file
without using 'tail' how can I get the trailing 5 lines of a large file quickly, without loading it all to memory? is there anyway without pop and shifting through an array foreach line? (= this is the only way I could think of doing it) Distribution Homepage http://www/groups/product/Software_Distribution Nikola Janceski Summit Systems, Inc. 212-896-3400 Clever talk and a pretentious manner are seldom found in the Good. -- Confucius The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: local()! Explain, please?
Then I am really confused, how can I cause the scope of $\ to extend only to
the end of the file and not into the other modules??
perldoc -f local
local EXPR
You really probably want to be using my instead,
because local isn't what most people think of as
local. See the Private Variables via my() entry
in the perlsub manpage for details.
A local modifies the listed variables to be local to
the enclosing block, file, or eval. If more than
one value is listed, the list must be placed in
parentheses. See the Temporary Values via local()
entry in the perlsub manpage for details, including
issues with tied arrays and hashes.
and in my quick script:
#!yourperl
my $\ = \n;
__END__
I get this error:
Can't use global $\ in my at /usr/nj/pl.pl line 4, near my $\
Execution of /usr/nj/pl.pl aborted due to compilation errors.
-Original Message-
From: Jenda Krynicky [mailto:Jenda;Krynicky.cz]
Sent: Thursday, October 24, 2002 3:16 PM
To: Beginners (E-mail)
Subject: Re: local()! Explain, please?
at the top of my script is:
local $\ = \n;
now ... isn't local supposed to modify the listed variables to be
local to the enclosing block, file, or eval. ?
No. That's my.
then why when I set this variable just before some code
(Mail::Sender
or MIME::Entity) that builds the e-mail and sends it, that
the e-mail
ALWAYS comes out wrong (wrong == improper formatting, wrong headers,
bad multipart, etc.).
Yes that's what I would expect.
Am I just misunderstanding the use of local?
Yes.
See this:
sub foo {
print \$x = $x\n;
}
$x = global value;
foo();
{
local $x = local value;
foo();
}
foo();
{
my $x = my value;
foo();
}
foo();
Do you see?
The my $x = ... changes the value of $x only for the block, while
local $x = ... changes the value of $x UNTIL you finish the block.
That's a big difference.
What local does is this:
1) it stores the value of the variable somewhere
2) sets the variable to undef or whatever you told it to
3) installs a handler that'll replace the value of
the variable
with whatever local stored when the execution leaves the block.
On the other hand my creates a NEW variable that's not accessible
from anywhere outside the block.
You want to read MJD's Coping with Scoping
http://perl.plover.com/FAQs/Namespaces.html
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
local()! Explain, please?
Okay, I was fuming mad. I have been struggling with a program that is
supposed to send a simple e-mail...
or so I thought!
for 2 days I have sent test e-mails all of them with headers in the e-mail
and attachments all screwy.
then I found the culprit.
at the top of my script is:
local $\ = \n;
now ... isn't local supposed to modify the listed variables to be local to
the enclosing block, file, or eval. ?
then why when I set this variable just before some code (Mail::Sender or
MIME::Entity) that builds the e-mail and sends it, that the e-mail ALWAYS
comes out wrong (wrong == improper formatting, wrong headers, bad multipart,
etc.).
below I have attached some sample code for both modules with the local $\ =
\n [untested sample code but should be 95% correct since I just change
some private items to garbage]...
Am I just misunderstanding the use of local?
Thank you for any explaination to this behavior,
Nikola Janceski
The average person thinks he isn't.
-- Father Larry Lorenzoni
use MIME::Entity;
local $\ = \n;
my $top = MIME::Entity-build(
Type= multipart/mixed,
From= nikola_janceski\@summithq.com,
To = '[EMAIL PROTECTED]',
Subject = something
);
$top-attach(Data=duh duh duh);
my $file = /usr/nj/somefile;
if(-f $file){
$top-attach(
Path= $file,
Type= text/plain,
Encoding= base64);
}
open MAIL, | /usr/lib/sendmail -t -oi -oem -f 'klehman\@summithq.com' or
die open: $!;
$top-print(\*MAIL); ## this is a method call which shouldn't be touched
by the local $\ right?
close MAIL;
similar problems when using Mail::Sender;
use Mail::Sender;
local $\ = \n;
my $sender;
ref($sender = new Mail::Sender
{smtp = 'mail.localhost.com'}) || die new $sender --
$Mail::Sender::Error\n;
ref($sender-OpenMultipart({from = $from.'@summithq.com', to =
'[EMAIL PROTECTED]',
subject = $subject}) ) || die OpenMultipart
$Mail::Sender::Error\n;
$sender-Body();
$sender-Send(duh duh duh);
my $file = /usr/nj/somefile;
if( -f $file ){
$sender-SendFile({
ctype = 'text/plain',
encoding = 'base64',
file = $file
}) || die $Mail::Sender::Error\n;
}
$sender-Close() || die $Mail::Sender::Error\n;
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: good text editor
nedit is good, www.nedit.org, but you need some third party stuff to make it run on windows, there is lots on the website to explain how to install/run on windows. -Original Message- From: Mariusz [mailto:mkubis22;hotmail.com] Sent: Tuesday, October 22, 2002 7:58 PM To: perl Subject: good text editor Can someone recommend a good text editor for perl cgi scripting? I've been using notepad, but was wondering if there is something a little better but still simple like notepad. I wanted to change the background color (I heard green is friendlier to the eyes) and be able to see the line numbers. Thanks, Mariusz ps. Nice if it doesn't use too much resources. The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
CGI.pm param question
is there a function that does this or something similar in CGI.pm?
## print start_form and other stuff
print map { hidden($_, param($_)) } param(); # pass remaining info
## end form stuff here
PS. what's the easiest way to pass parameters that have more than one value
using a similar method above?
Nikola Janceski
Only the wisest and the stupidest of men never change.
-- Confucius
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Missing Bracket
See inline comment: -Original Message- From: Balint, Jess [mailto:JBalint;alldata.net] Sent: Tuesday, October 22, 2002 2:17 PM To: '[EMAIL PROTECTED]' Subject: Missing Bracket Hi all. I am sorry to post a question such stupid as this one, but it has me stumped. I have a fairly long perl program that gives me the following error when I run it. Missing right bracket at ./a.pl line 877, at end of line syntax error at ./a.pl line 877, at EOF Execution of ./a.pl aborted due to compilation errors. I am assuming the bracket is the square bracket (]). 877 is Don't assume its a square bracket. It's probably a curly (}). the last line of my program and I can't seem to find anywhere that I am missing a right bracket. Is there an sure-fire way to figure it out? Thanks. jess -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: IDE
It depends on which meaning of IDE you mean.. http://www.acronymfinder.com/af-query.asp?String=exactAcronym=ide but if it's ever a question of windows or unix: I personally always choose unix, unless the question is which will break first. -Original Message- From: Jim Thomason [mailto:thomason_jim;juno.com] Sent: Tuesday, October 22, 2002 3:39 PM To: [EMAIL PROTECTED] Subject: Re: IDE What are the best IDEs for Perl - for Linux or Windows? Thanks. Jim -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: lost - map { $_:\t$h-{$_}[0]\n} keys %$h
# read this from bottom to top (be sure to read 'perldoc -f map' first)
print # print will print the list that is returned from map
map { # map returns the last evaluated statement
$_ . # this is what $_ was
:\t . # this is a colon followed by a tab
# $h-{$_}[0] is the first element
of that array
# $h-{$_} points to an array ref
$h-{$_}[0] . # $_ is each key from hash ref $h
\n# this is a new line
} keys %{ $h }; # get the keys from hash ref $h
-Original Message-
From: Jerry Preston [mailto:g-preston1;ti.com]
Sent: Monday, October 21, 2002 5:20 PM
To: Beginners Perl
Subject: 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(ALL)
method when
called in
# scalar context) and the remaining arguments are the
fields to parse out
# The key is the message number, which in this case we
don't care about:
values %{$imap-parse_headers(
scalar($imap-search(ALL)) , Subject,
Date)}
) {
# $h is the value of each element in the hash ref returned from
parse_headers,
# and $h is also a reference to a hash.
# We'll only print the first occurance of each field
because we don't
expect more
# than one Date: or Subject: line per message.
print map { $_:\t$h-{$_}[0]\n} keys %$h ;
}
How can I access this and break it done to look at each line?
Thanks,
Jerry
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: AI in Perl
dunno about AI, but you might want to see the Chatbot::Eliza module. pretty cool, fun stuff. -Original Message- From: James Edward Gray II [mailto:james;grayproductions.net] Sent: Thursday, October 17, 2002 4:44 PM To: [EMAIL PROTECTED] Subject: AI in Perl Any good books out there covering AI logic concepts in Perl? Recommendations welcome. James -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: comparing two hashes
but this only works if each hash has the same keys.
if one hash might have more/less keys than the other use this:
my %seen;
foreach ( grep !$seen{$_}++, (keys %hash1, keys %hash2) ) {
next if $hash1{$_} eq $hash2{$_};
print key: $_ - hash1: $hash1{$_} - hash2: $hash2{$_}\n; # now
prints extra keys not in both hashes
}
-Original Message-
From: James Edward Gray II [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, October 16, 2002 11:25 AM
To: Egleton, Gary
Cc: [EMAIL PROTECTED]
Subject: Re: comparing two hashes
Something like:
foreach (keys %hash1) {
next if $hash1{$_} eq $hash2{$_};
print $hash1{$_} $hash2{$_}\n;
}
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Off topic
Google groups: http://groups.google.com/groups?sourceid=navclientie=UTF-8oe=UTF-8q=linux +admin that should have been your first guess. -Original Message- From: Anidil Rajendran-Raj [mailto:[EMAIL PROTECTED]] Sent: Wednesday, October 16, 2002 4:08 PM To: [EMAIL PROTECTED] Subject: Off topic Hi, Sorry to ask this OT question. But i am sure I can get help here. I was looking for a good Linux admin mailing list. Thanks in advance The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: No Such File or Directory
That's not ok. use File::Path; mkpath(); if you want that functionality. -Original Message- From: James Edward Gray II [mailto:[EMAIL PROTECTED]] Sent: Tuesday, October 15, 2002 2:14 PM To: [EMAIL PROTECTED] Subject: No Such File or Directory Okay, here's a different on, mkdir() is giving me a No Such File or Directory error. I am passing it a string of two directories I want created, one inside the other, but the way I read the entry in Programming Perl, this is okay. Am I missing something? James -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Is this correct? print syntax
Is this correct placement of the parenthesis? print FILEHANDLE (list_of_print_stuff); Nikola Janceski The straightest path is not the path of experience. -- Nicky J. from da' Bronx The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Is this correct? print syntax
I need them.. for print FILEHANDLE (list, of, stuff), next if (condition); -Original Message- From: James Edward Gray II [mailto:[EMAIL PROTECTED]] Sent: Friday, October 11, 2002 2:39 PM To: Nikola Janceski Cc: Beginners (E-mail) Subject: Re: Is this correct? print syntax Parenthesis are optional for pre-defined subroutines, like Perl's built-in, so most users just leave them off when they're not needed: print FILEHANDLE list, of stuff, to print; On Friday, October 11, 2002, at 01:28 PM, Nikola Janceski wrote: Is this correct placement of the parenthesis? print FILEHANDLE (list_of_print_stuff); Nikola Janceski The straightest path is not the path of experience. -- Nicky J. from da' Bronx -- - - The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Is this correct? print syntax
from the doc I was a little confused and wanted clarification: Also be careful not to follow the print keyword with a left parenthesis unless you want the corresponding right parenthesis to terminate the arguments to the print--interpose a + or put parentheses around all the arguments. this makes me think I can do this: print(FILEHANDLE list, of, stuff, to, print), next if (condition); which I haven't tested. and do I need another comma in that?... ;) just fueling the fire I guess. -Original Message- From: Tim Musson [mailto:[EMAIL PROTECTED]] Sent: Friday, October 11, 2002 2:46 PM To: [EMAIL PROTECTED] Subject: Re: Is this correct? print syntax Hey Nikola, My MUA believes you used Internet Mail Service (5.5.2650.21) to write the following on Friday, October 11, 2002 at 2:28:27 PM. NJ Is this correct placement of the parenthesis? NJ print FILEHANDLE (list_of_print_stuff); The best thing to do is look at perldoc, and try it yourself. use strict; use warnings; print (list_of_print_stuff); # This gives an error print \nThis is how I usually do it\n; tryperldoc -q printat a command prompt. -- [EMAIL PROTECTED] Flying with The Bat! eMail v1.61 Windows 2000 5.0.2195 (Service Pack 2) What else can you do at 3:00 am? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Problem with variable in system command
Why aren't you passing a kill signal? You should always pass a kill signal, even if it's just -9. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Thursday, October 10, 2002 11:37 AM To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: RE: Problem with variable in system command Thanks, it's working now. I couldn't get the perl kill to work, it kept dieing. I used system(kill $mypid) and it kills everything :-). Thanks again The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
character limit on system commands
uh... is there away around the character limit (256 chars) on system/exec/backtick commands? I know it's probably sh's fault, but I would like to avoid creating a shell script if possible. Thanx, Nikola Janceski Our doubts are traitors, and make us lose the good we oft might win by fearing to attempt. -- William Shakespeare The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Reading question (as in book)
malloc(3) - malloc is the function (a C library function in this case), and (3) is the section of malloc (there are sometimes variations on functions so there are different sections). but in the general case, it refers to a function/command/system item. Perl is not written perl (well not all of it) so some of it (looks like/refers to/is exactly like) (C functions/commands/etc.) so they don't have to explain it all when you can just look at those docs to understand the quirks/internals/etc. of the item you are looking at. -Original Message- From: Thoenen, Peter Mr. EPS [mailto:[EMAIL PROTECTED]] Sent: Thursday, October 10, 2002 4:37 PM To: '[EMAIL PROTECTED]' Subject: Reading question (as in book) Hello, Never had any real programming classes and as I start to read more and moe programming books (on Camel now) keep seeing items like malloc(3), longjmp(3), rintf(3), etc etc. I have this gut feeling they have something to do with c++ but thats about as far as I get. Google is no help and key in the camel book (and others) also isn't either. I am starting to believe this is one of those basic concepts / ideas that I should know yet somehow missed it completely :) . Anybody want to explain just what those references are to and how it applies to me/perl? note: I am a win32 guy Cheers, -Peter ## Peter Thoenen - Systems Programmer Commercial Communications Camp Bondsteel, Kosovo ## Stumbled Upon...heh (Score:5, Funny) /. by $carab on 23:00 23 August 2002 (#4131637) ForensicTec officials said they stumbled upon the military networks about two months ago, while checking on network security for a private-sector client. Someone new to a Dvorak probably tried to type in lynx http://www.google.com; but instead got nmap -v -p 1-1024 -sS -P0 army.mil -T paranoid. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: how to check if a dir exists if not create it?
use File::Path; mkpath(/storage/systbl/, 0, 0777) || die $!\n; in accordance with the prophecy. -Original Message- From: loan tran [mailto:[EMAIL PROTECTED]] Sent: Thursday, October 10, 2002 5:26 PM To: [EMAIL PROTECTED] Subject: how to check if a dir exists if not create it? mkdir (/storage/systbl/) || die $!\n; The code above does not check if the dir exist. Can you modify it please. Thanks. Loan __ Do you Yahoo!? New DSL Internet Access from SBC Yahoo! http://sbc.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
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 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 This one has 3 _ (underscores) Returns: Process Name DM4 15C035 5LM Does NOT work: Process Name = d4_jerry_5lm This one has 2 _ (you are matching for 3 in your regex) perhaps you should gather the last half and then split on _: my (@dat) = /(\w+\s+\w+\s+)=\s+([.\w]+)/; push @dat = split /_/, pop @dat; [untested] Is there a better way to write this regex? Thanks, Jerry The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Odd and even numbers
perl -e 'printf %.0d\n, $ARGV[0]/2 if @ARGV' 5 Weird why doesn't this work they way I expect it to? it returns 2 not 3. -Original Message- From: Zielfelder, Robert [mailto:[EMAIL PROTECTED]] Sent: Wednesday, October 09, 2002 10:58 AM To: Perl Beginners List (E-mail) Subject: Odd and even numbers Greetings, I am trying to write a script that at one point needs to look at a number and divide it by two. The results must always be an integer, but the numerator can potentially be an odd number. What I want to do is if the numerator is odd, increment it to the next highest even number. Is there a function in PERL that will allow me to test weather or not an integer is odd or even so that I can increment the number before I do the division? Rz The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Joining array elements
read up on slices; join (,, @array[2 .. $#array]); -Original Message- From: Diego Riano [mailto:[EMAIL PROTECTED]] Sent: Tuesday, October 08, 2002 10:51 AM To: [EMAIL PROTECTED] Subject: Joining array elements Hello all I have an array like this: @array=(1,2,3,4,5,6); And I would like to join the element starting from the third one until the lasta want. Something like: join (,,$array[2],$array[3],$array[4],$array[5]); The problem I have is that this array will chance from time to time sometimes being bigger sometimes being smaller, so I need a way to join the elements from the third element to last one.. any Ideas!! Thanks Diego Riano -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Need urgent help
which do you have: use config.cgi; require config.cgi; in your code? Where is the file located? did you check the case of the file name in the script and at it's location? we need more info. -Original Message- From: Bootscat [mailto:[EMAIL PROTECTED]] Sent: Tuesday, October 08, 2002 3:05 PM To: [EMAIL PROTECTED] Subject: Need urgent help Can someone tell me how to get passed this error? The Config files it's looking for is there. Can't locate config.cgi in @INC (@INC contains: /usr/lib/perl5/5.6.1/i686-linux /usr/lib/perl5/5.6.1 /usr/lib/perl5/site_perl/5.6.1/i686-linux /usr/lib/perl5/site_perl/5.6.1 /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/site_perl) at start.cgi line 10. Thanks and God Bless Dan The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
FW: Need urgent help
He just sent it to me for some reason, but I can't find the problem.
Be sure to CC Bootscat as he is the original poster.
-Original Message-
From: Bootscat [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, October 08, 2002 4:51 PM
To: Nikola Janceski
Subject: Re: Need urgent help
Here's how it's worded.
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$q = new CGI;
require config.cgi;
@input = $q-param;foreach $input (@input){${$input} = $q-param($input);}
$|=1;
The config.cgi file is in the directory with the admin file.
Thanks
Dan
- Original Message -
From: Nikola Janceski [EMAIL PROTECTED]
To: 'Bootscat' [EMAIL PROTECTED]; [EMAIL PROTECTED]
Sent: Tuesday, October 08, 2002 1:13 PM
Subject: RE: Need urgent help
which do you have:
use config.cgi;
require config.cgi;
in your code?
Where is the file located? did you check the case of the file name in the
script and at it's location?
we need more info.
-Original Message-
From: Bootscat [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, October 08, 2002 3:05 PM
To: [EMAIL PROTECTED]
Subject: Need urgent help
Can someone tell me how to get passed this error?
The Config files it's looking for is there.
Can't locate config.cgi in @INC (@INC contains:
/usr/lib/perl5/5.6.1/i686-linux /usr/lib/perl5/5.6.1
/usr/lib/perl5/site_perl/5.6.1/i686-linux
/usr/lib/perl5/site_perl/5.6.1 /usr/lib/perl5/site_perl/5.6.0
/usr/lib/perl5/site_perl) at start.cgi line 10.
Thanks and God Bless
Dan
--
--
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Perl Profiler?
There is no magic in programming, just ones and zeros. but I am sure others have the same question as me... What the heck is a Profiler? Where have you seen one before? -Original Message- From: Jason Frisvold [mailto:[EMAIL PROTECTED]] Sent: Monday, October 07, 2002 2:24 PM To: beginners perl Subject: Perl Profiler? Does anyone know if there is a Perl Profiler (Open Source or Commercial) that is in existance? Apparently my boss thinks this will magically fix various issues... :) -- --- Jason 'XenoPhage' Frisvold Senior ATM Engineer Penteledata Engineering [EMAIL PROTECTED] RedHat Certified - RHCE # 807302349405893 --- Something mysterious is formed, born in the silent void. Waiting alone and unmoving, it is at once still and yet in constant motion. It is the source of all programs. I do not know its name, so I will call it the Tao of Programming. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Check for empty array
if(not @array){
# it's empty
}
-Original Message-
From: Bryan Harris [mailto:[EMAIL PROTECTED]]
Sent: Friday, October 04, 2002 11:58 AM
To: Beginners Perl
Subject: Check for empty array
What's the easiest way to check whether an array is empty?
I'm really feeling like a beginner today...
- Bryan
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Parse data file
and how would you like this info stored? What portions of the info do you want? You need to supply us with more information as to what you want to do. We are good... but we aren't mind readers. This looks a bit like homework to me, so show us what you got so far and we'll help. -Original Message- From: Matt Simonsen [mailto:[EMAIL PROTECTED]] Sent: Monday, September 30, 2002 7:01 PM To: [EMAIL PROTECTED] Subject: Parse data file I need to get 2 fields out of a file which has the following format: #FIELD [tab]NAME=name to put into hash[newline] [tab]DATALINE=value to put with data[newline] [tab]EXTRA=several fields to ignore... [NEWLINE] #NEXTFIELD [tab]NAME ... I have thought of a couple ways I *could* do it, but I think they are the poorer of the many ways to do it. Any tips on how you'd elegantly separate the data would be appreciated. Thanks Matt The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Creating hash?
open(FILE, yourfile) or die can't open $!;
my(%LINES);
while(FILE){
my($key) = split;
$LINES{$key) = $_ unless exists $LINES{$key);
}
close FILE;
# %LINES now has key value pairs of '123' and '444' as the keys and the
value is the first occurence in the file.
-Original Message-
From: Paul and Joann Van Dalen [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 30, 2002 9:36 PM
To: [EMAIL PROTECTED]
Subject: Creating hash?
Hi all,
Given an input file that has the following records:
123ABCXX112Zz
123DEFXX113Z
123EEFXX112 Zz
444cccvvbfdc
444CCdvvbfdc
444dddssddd
I need to focus on the first column (the input file is
already sorted on
that field) and, grouped by the first column, pull out
the first record of that group.
e.g., I would need to have the following from the above as output:
123ABCXX112Zz
444cccvvbfdc
I believe I'd need something like a hash, where for every
record within
a group defined by the common value of the first column, I take the
numerically first occurance of that group, but I don't know how to do
that in Perl. Would it take a loop for each group within the loop for
the entire file??
Thanks very much,
Paul
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: newest
http://activestate.com/Products/Download/Register.plex?id=ActivePerl suggested. -Original Message- From: Shirley Frogge [mailto:[EMAIL PROTECTED]] Sent: Tuesday, October 01, 2002 10:34 AM To: Beginners@Perl. Org (E-mail) Subject: newest Hi, I am the newest of beginners!! I have Oracle 8i on Windows XP. Where can I download Perl? What do I download? Thanks, Shirley -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Last day of Month
The error you have is you didn't use the module that already does this for
you.
use Data::Calc qw(Days_in_Month);
-Original Message-
From: Charlie Farinella [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 30, 2002 5:13 PM
To: Perl Beginners
Subject: Last day of Month
I have an error popping up in an application that runs monthly reports
and everymonth seems to leave off the last day's entries.
The subroutine that determines the last day of the month is here:
sub GetLastDayOfMonth {
my( $sec, $min, $hours, $mday, $mon, $year ) =
localtime( $_[0] );
return timelocal( 59, 59, 23, $monthDays[$mon], $mon, $year );
}
This is over my head and I'm hoping someone might look at
this and point
out any errors they might see. Either an explanation of
what's going on
here, or a pointer to appropriate documentation would also be
appreciated.
thanks.
--
--
--
Charlie Farinella, Appropriate Solutions, Inc.
[EMAIL PROTECTED]
603-924-6079
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Last day of Month
er... my bad.. typo
use Date::Calc qw(Days_in_Month);
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 30, 2002 5:17 PM
To: 'Charlie Farinella'; Perl Beginners
Subject: RE: Last day of Month
The error you have is you didn't use the module that already
does this for
you.
use Data::Calc qw(Days_in_Month);
-Original Message-
From: Charlie Farinella [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 30, 2002 5:13 PM
To: Perl Beginners
Subject: Last day of Month
I have an error popping up in an application that runs
monthly reports
and everymonth seems to leave off the last day's entries.
The subroutine that determines the last day of the month is here:
sub GetLastDayOfMonth {
my( $sec, $min, $hours, $mday, $mon, $year ) =
localtime( $_[0] );
return timelocal( 59, 59, 23, $monthDays[$mon], $mon, $year );
}
This is over my head and I'm hoping someone might look at
this and point
out any errors they might see. Either an explanation of
what's going on
here, or a pointer to appropriate documentation would also be
appreciated.
thanks.
--
--
--
Charlie Farinella, Appropriate Solutions, Inc.
[EMAIL PROTECTED]
603-924-6079
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
--
The views and opinions expressed in this email message are
the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: newbie - in
And who would care if the list always remains small enough that it wouldn't make a difference? use grep, if you notice a performance issue at that command then it's time to think of other methods of doing your operation (hint hashes). Personally I avoid making giant arrays, heck I aviod too much data in memory all together, but once you have to have too much data in memory you already have a problem that you should be re-thinking to use less of it. -Original Message- From: Sudarshan Raghavan [mailto:[EMAIL PROTECTED]] Sent: Sunday, September 29, 2002 4:01 AM To: Perl beginners Subject: RE: newbie - in On Fri, 27 Sep 2002, Timothy Johnson wrote: check out perldoc -f grep grep should not be used for this purpose, it will run through the entire list even after the desired element has been found. The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: sorting data (more than one scalar involved)
well.. TIMTOWTDI
I would store this as a nested array in a hash:
my %CLANS;
while(FILE){
chomp;
my($clan, @scores) = split /,/;
$CLANS{$clan} = \@scores;
}
# to sort in order
@clans_in_win_order = sort {
$CLANS{$b}[0] = $CLANS{$a}[0] ## sort by most wins first
|| # then
$CLANS{$a}[1] = $CLANS{$b}[1] ## sort by least losses
|| # then
$CLANS{$b}[2] = $CLANS{$a}[2] ## sort by most points for
## etc.
} keys %CLANS;
## so you print in the order of @clans_in_win_order; remember hashes don't
keep any specific order... only arrays do.
-Original Message-
From: Steveo [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 26, 2002 8:48 AM
To: [EMAIL PROTECTED]
Subject: sorting data (more than one scalar involved)
I understand how to sort $string1 and $string2 but I have something a
little more complicated (I think at least) and I've never done this
before. This is what my data looks like (flat ascii file)
(clan, wins, losses, points for, points against)
dod,4,3,700,400
cs,5,2,950,250
hl,0,7,300,1000
What I want to do is read this flat ascii text file into a
script and print
it out on a webpage so the clans are ranked by wins, so on a
webpage it
would look like this:
Clan W L PF PA
CS 5 2 950250
DOD 4 3 700 400
HL 0 7 300 1000
I can open and close the ascii text file. Whats an approach
for going
about sorting this data?
Steveo (aka Haiku)
[EMAIL PROTECTED]
www.linuxhaiku.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Getting a line number from a file.
see perldoc perlvar $. # has the current line number of the last FILEHANDLE opened. -Original Message- From: Steve [mailto:[EMAIL PROTECTED]] Sent: Thursday, September 26, 2002 9:18 AM To: [EMAIL PROTECTED] Subject: Getting a line number from a file. Is there a way to, as a file is read to print the line number you are on? - The three most dangerous things are a programmer with a soldering iron, a manager who codes, and a user who gets ideas. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: checking parameters ...
change to ||
-Original Message-
From: Admin-Stress [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 26, 2002 10:31 AM
To: Perl beginners
Subject: checking parameters ...
I wrote a simple script like this :
#!/usr/bin/perl
if (($ARGV[0] eq ) ($ARGV[1] eq ) ($ARGV[2] eg )) {
print You must give me 3 parameters\n;
exit;
}
Then, I tested like with 1 .. OR 2 ... OR 3 parameters, it
did not print the text You must
Why this happened? How to detect null parameters? is
equal to null?
I can use if (scalar(@ARGV) 3) {...} but that not the case.
Thanks for help me to explain this.
newbie
__
Do you Yahoo!?
New DSL Internet Access from SBC Yahoo!
http://sbc.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: a better way?
open(FILE, yourfile) or die $!;
chomp(my(@lots) = FILE);
close FILE;
-Original Message-
From: Jerry Preston [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 26, 2002 11:30 AM
To: Beginners Perl
Subject: a better way?
Hi!
Is there a better way? A Perl way?
$j = 0;
while( file ) {
chomp;
( $lots[ $j++ ] ) = $_;
}
? @lots = file;
Thanks,
Jerry
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: a better way?
maybe the file has perl code and intends to:
eval{ @lines };
for some wacky reason. I am sure you can remember your early perl days when
you read files into arrays because it was cool and easy.
:^P
-Original Message-
From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 26, 2002 11:36 AM
To: Jerry Preston
Cc: Beginners Perl
Subject: Re: a better way?
but why do you need the file in an array?
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: a better way?
if you use an array you are using up memory.
small files are okay for that.. but you can do it in the while loop without
the array.
But TIMTOWTDI.
what are you checking for in the lines? Just an example will tell us what's
best for your application.
-Original Message-
From: Jerry Preston [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 26, 2002 11:51 AM
To: [EMAIL PROTECTED]
Cc: Beginners Perl
Subject: 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: Beginners Perl
Subject: Re: a better way?
On Sep 26, Jerry Preston said:
Is there a better way? A Perl way?
$j = 0;
while( file ) {
chomp;
( $lots[ $j++ ] ) = $_;
That's usually written as
push @lots, $_;
}
Well, you could do:
chomp(@lines = FILE);
but why do you need the file in an array?
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Converting to Hex
check out sprintf() and ord() quickly for you example: ## hex perl -e 'printf(%x, ord(\n))' ## oct perl -e 'printf(%o, ord(\n))' -Original Message- From: James Edward Gray II [mailto:[EMAIL PROTECTED]] Sent: Monday, September 23, 2002 12:49 PM To: [EMAIL PROTECTED] Subject: Converting to Hex Is there a simple way, like a one liner perhaps, that will give me the octal/hex value of a character? I need to look certain characters up, so I would like to be able to give it something like an 'a' or even \n and have it answer 141 or 012 (assuming UNIX). Thanks for your time. James -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Sub Name
why would you want that? 'use Carp' does something like that, but I think it
actually crawls up the stack.
-Original Message-
From: Balint, Jess [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 23, 2002 1:11 PM
To: '[EMAIL PROTECTED]'
Subject: Sub Name
Hi all. Is there a way to get a subroutine name into a string? Thanks.
Jess
sub jess{ }
sub name{
$subref = shift;
print $subref;
}
name( \jess );
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Encryption/Decryption
I don't know how good the PGP module on CPAN is, but it looks promising the last time I looked. -Original Message- From: Rob Das [mailto:[EMAIL PROTECTED]] Sent: Friday, September 20, 2002 8:25 AM To: [EMAIL PROTECTED] Subject: Encryption/Decryption Hi List: Can anyone suggest a way/module to encrypt the contents of a file then decrypt it to get the contents back? I see many different modules on CPAN, but wondered if anyone can recommend one. I would be doing the encryption in one program, and the decryption in a different program. Any ideas would be welcome! Thanks Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Question about Error
Are you sure you know what this 'if' statement is doing?
It always evaluates true. and the m/$litem/$matchitem/i shouldn't be in
quotes.
if($litem, /$matchitem/){ ## always true
$PNdString =~ m/$litem/$matchitem/i; ## not a pattern match if it's
in quotes
print (OUTFILE $PNdString\n);
}
else{
print(OUTFILE $litem\n);
}
-Original Message-
From: Anthony Saffer [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 18, 2002 9:04 AM
To: Perl Beginners List
Subject: Question about Error
Good Morning Everyone,
Got another question: I wrote my first Perl script last night
and it seemed to be error free on Windows. But when I
uploaded it to Linux (RH 7.3) it threw an error that I don't
understand. From a Google search it seems there could be a
number of problems and I am not experience enough to know
which. The error I am getting is:
Nested quantifiers before HERE mark in then it gives my
regular expression followed by the first line of the file.
I THOUGHT this code was right. But obviously it isn't. Can
someone tell me why line 29 would be throwing this error or
WHAT the error means? The entire code is below. Thanks again
for all the help. This list has been a lifesaver.
Anthony
CODE:
my $PNdString = ;
sub process_files{
open(FH, $_) or die(Error! Couldn't open $_ for
reading!! Program aborting.\n);
open(MTH, /home/losttre/sorted.txt) or die(Error!
Couldn't open $MTH for reading!\n);
open(OUTFILE, temp.dat) or die (Couldn't open temp
file! Aborting\n);
@MTH = MTH;
@fcontents = FH;
foreach $matchitem (@MTH){
foreach $litem (@fcontents){
if($litem, /$matchitem/){
$PNdString =~ m/$litem/$matchitem/i;
print (OUTFILE $PNdString\n);
}
else{
print(OUTFILE $litem\n);
}
}
}
print Done\n;
}
find(\process_files, @ARGV);
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Array of Hashes
you have a space that shouldn't be there:
print THIS DOESN'T WORK: $key $newHash {$key}\n;
^
should be:
print THIS DOESN'T WORK: $key $newHash{$key}\n;
-Original Message-
From: Simon Tomlinson [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 18, 2002 9:06 AM
To: [EMAIL PROTECTED]
Subject: Array of Hashes
Hi
I want to put a hash into each element of an array. I do it
like the following bit of code. When I iterate round my hash
before putting it in the array of the hash values/keys are
there. However, when I iterate through the hash after
putting it in the array all i get is '4/8' as the ouput.
I am sure this is very simple and I'm doing something stupid.
Does anyone have any ideas?
Thanks in advance,
Simon.
my @array
my $count = 0;
my $maxCount = 4;
while $count $maxCount
{
my %myHash = getHash;
foreach $key (keys %myHash )
{
print THIS WORKS: $key $myHash{$key}\n;
}
# Now assign the hash to my array
$array[$count] = %myHash;
my %newHash = $array[$count];
foreach $key (keys %newHash )
{
print THIS DOESN'T WORK: $key $newHash {$key}\n;
}
}
--
This e-mail may contain confidential and/or privileged
information. If you are not the intended recipient (or have
received this e-mail in error) please notify the sender
immediately and destroy this e-mail. Any unauthorized
copying, disclosure or distribution of the material in this
e-mail is strictly forbidden.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: how to initialise a two dimensional array
you only need to declare with my() the first array. all the other arrays are just references to anonymous arrays (if you create the 2-d array like most people do). ex: my(@arr); $arr[0] = [ qw( 1 2 3 4 5 ) ]; -Original Message- From: pravesh biyaNI [mailto:[EMAIL PROTECTED]] Sent: Wednesday, September 18, 2002 9:56 AM To: [EMAIL PROTECTED] Subject: how to initialise a two dimensional array Hi I am using a two dimentional array!! but the script on running gives an error global symbol requires explicit package name. how to use my () with a two dimentional array help awaited pravesh -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: simple problem
See in-line comments:
-Original Message-
From: pravesh biyaNI [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 18, 2002 1:48 PM
To: [EMAIL PROTECTED]
Subject: simple problem
Hello
Here is a very simple prblem which unfortunatly i am not
able to solve.
I want to compare a character to a variable and do accordingly. I am
using an if loop for this!!
but it seems that even if the variable is not equal to that
character,
it is entering the loop.. i am not able to figure out the prblm!!
here is the code:
for( my $j =0 ; $j $line_number ; ++$j)
{
if ( $rows[0][$j] = 'E' )
The above line sets $rows[0][$j] to 'E' use instead:
if ( $rows[0][$j] eq 'E' ) ## for string comparison
{
print iam here \n;
print the value of the first element is $rows[0][$j] and
the value of
the sequence number is $rows[5][$j] \n;
if( $packet_number != $rows[5][$j])
{
print i am also here in $ch_count \n;
++($loss);
}
++ $packet_number ;
}
else
{
print the value of count is $j \n;
}
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Recognizing Directories...
you should check out File::Find on CPAN.org. -Original Message- From: Anthony Saffer [mailto:[EMAIL PROTECTED]] Sent: Tuesday, September 17, 2002 11:03 AM To: [EMAIL PROTECTED] Subject: Recognizing Directories... Hello Everyone, I am writing a utility that needs to index the files contained within about 500 directories (some nested). I want to provide the script with a top directory and have it recurse through everything underneath while indexing the files within each. I've searched Google and can't seem to find a way to do this. I know how to get all files within a directory but how do I RECOGNIZE my directories so I can descend into them to index? Thanks in Advance, Anthony Saffer The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Counting the same word
nope that only counts the word once per line..
if the word was in the line twice it would only count it once.
-Original Message-
From: Mat Harris [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, September 17, 2002 12:06 PM
To: ANIDIL RAJENDRAN
Cc: [EMAIL PROTECTED]
Subject: Re: Counting the same word
i think this will work, but don't complain if it doesn't 'cos
im tired. ok?
#!/usr/bin/perl
$count = 0;
while (FILE)
{
if (m/california/)
{
$count++;
}
}
print california: $count\n;
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Counting the same word
Are you only looking for 'california' (case-sensitive?) ?
if so:
open (FILE,C:\\proj\\order\.txt) or die cannot open file: $!;
%seen = ();
while (FILE) {
$count += s/california//g; ## substitute returns number of subs
(m// doesn't)
}
print california: $count\n;
-Original Message-
From: ANIDIL RAJENDRAN [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, September 17, 2002 11:43 AM
To: [EMAIL PROTECTED]
Subject: Counting the same word
Hi,
I want to count the number of times a particular word
occured in a file. Though the following script is working,
is it possible to shorten it?
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Simple RegEx Question
see below /^[^0-9a-fA-F]+$/ #if this evals to true string is NOT ## start of string ^ and end of string $ -Original Message- From: RTO RTO [mailto:[EMAIL PROTECTED]] Sent: Wednesday, September 11, 2002 11:00 AM To: [EMAIL PROTECTED] Subject: Simple RegEx Question Here is a RegEx that I am using to check if the given string is Hexadecimal or not. /[^0-9a-fA-F]+/ #if this evals to true string is NOT hex I am having a trailing + to make sure at least one permissible character is present. Yet, it matches an empty string as a hex string. a) What am I missing? b) Why is an empty string being matched? Thanks, Rex __ Yahoo! - We Remember 9-11: A tribute to the more than 3,000 lives lost http://dir.remember.yahoo.com/tribute -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Simple RegEx Question
give us a snippet of your code. you made a mistake somewhere. and give us examples of what the variables contain. -Original Message- From: RTO RTO [mailto:[EMAIL PROTECTED]] Sent: Wednesday, September 11, 2002 11:09 AM To: Nikola Janceski; [EMAIL PROTECTED] Subject: RE: Simple RegEx Question I am afraid, your suggestion is even breaking for already working ones! i.e., it says HEXADECIMAL NUMBER for an invalid string like f4dx and also says HEXADECIMAL NUMBER for invalid empty strings. The one I had posited,without the leading ^ and $ matched for all the cases correctly, except for empty strings. Hence the question. Thanks, Rex --- Nikola Janceski [EMAIL PROTECTED] wrote: see below /^[^0-9a-fA-F]+$/ #if this evals to true string is NOT ## start of string ^ and end of string $ The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Simple RegEx Question
# should be
if(/^[0-9A-F]+\z/i){
print($_ is a hexadecimal number!\n);
}else{
print($_ is not a hexadecimal number!\n); ## even blanks
}
-Original Message-
From: RTO RTO [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 11, 2002 11:20 AM
To: Nikola Janceski; [EMAIL PROTECTED]
Subject: RE: Simple RegEx Question
use strict;
while(DATA){
chomp;
if(/[^0-9a-fA-F]+/){
print($_ is not a hexadecimal number!\n);
}else{
print($_ is a hexadecimal number!\n);
}
}
__DATA__
f4dxf
ffaa99
gxad
2832
2842da
--- Nikola Janceski [EMAIL PROTECTED]
wrote:
give us a snippet of your code. you made a mistake
somewhere.
and give us examples of what the variables contain.
__
Yahoo! - We Remember
9-11: A tribute to the more than 3,000 lives lost
http://dir.remember.yahoo.com/tribute
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Weekly posting statistics - 36/2002
for once I am not on the top 10 since I first subscribed to the list. :) -Original Message- From: Felix Geerinckx [mailto:[EMAIL PROTECTED]] Sent: Monday, September 09, 2002 12:59 PM To: [EMAIL PROTECTED] Subject: Weekly posting statistics - 36/2002 Weekly posting statistics for perl.beginners - week 36 of 2002. The authors top-10 by number of articles is as follows: All/Ori Lines lpa Author 29/01229 42 [EMAIL PROTECTED] (David) 25/01590 63 [EMAIL PROTECTED] (John W. Krahn) 19/0 235 12 [EMAIL PROTECTED] (Dharmendra rai) 18/0 548 30 [EMAIL PROTECTED] (Sudarshan Raghavan) 13/0 565 43 [EMAIL PROTECTED] (Bob Showalter) 13/2 405 31 [EMAIL PROTECTED] (Felix Geerinckx) 12/0 386 32 [EMAIL PROTECTED] (Jeff 'Japhy' Pinyan) 7/0 348 49 [EMAIL PROTECTED] (Drieux) 7/1 283 40 [EMAIL PROTECTED] (Timothy Johnson) 6/1 305 50 [EMAIL PROTECTED] (Wiggins D'Anconia) The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Arrays inside
see inline comments:
-Original Message-
From: Tobin, Elliot [mailto:[EMAIL PROTECTED]]
Sent: Friday, September 06, 2002 9:55 AM
To: '[EMAIL PROTECTED]'
Subject: Arrays inside
I have the following as my data inside a package:
my $dataBlock = { isInsertable= $isInsertable,
fields = undef,
requiredFields = undef,
selectionFields = undef,
returnFields= undef };
How do I go about storing a list as the value of the
$dataBlock-{'fields'}
key?
I'd like something like the following to work:
sub setFields
{
my ($inBlock, @fieldList) = @_;
foreach my $i (@fieldList)
{
push($inBlock-{'fields'}, $i);
push(@{$inBlock-{fields}}, $i);
}
return $inBlock;
}
I understand it won't because $inBlock-{'fields'} is not an
array... Any
help would is appreciated.
TIA,
EllioT
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: stumped on error...
instead of accessing the $opt_h from the namespace of Getopt that way do
this:
see inline
-Original Message-
From: Mike Singleton [mailto:[EMAIL PROTECTED]]
Sent: Friday, September 06, 2002 11:17 AM
To: [EMAIL PROTECTED]
Subject: stumped on error...
Name Getopt::Std::opt_h used only once: possible typo.
=== Partial Script ==
use strict;
use English;
use Getopt::Std;
use Cwd;
my $RPTFILE=jobrpt.tmp;
our ($opt_h, $opt_n, $opt_p, $opt_o, $opt_s);
getopts('hn:p:o:s:') or die ;
($Getopt::Std::opt_h) and die;
#change above to
$opt_h and die;
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: hours minutes and seconds in seconds
http://search.cpan.org/author/MSERGEANT/Time-Object-1.00/Seconds.pm that can do it too. -Original Message- From: Rob [mailto:[EMAIL PROTECTED]] Sent: Friday, September 06, 2002 1:19 PM To: [EMAIL PROTECTED] Subject: hours minutes and seconds in seconds I'm working on a script that parses a log file which gives connection time in seconds. Below is how I resolved the problem but I think there must be a better way? #!/usr/bin/perl -w use strict; my $sessionTime = 4000; my $hour = $sessionTime / 3600; my $hr = int($hour); $sessionTime = $sessionTime - ($hr * 3600); my $minute = $sessionTime / 60; my $min = int($minute); my $sec = $sessionTime - ($min * 60); print $hr hour $min minutes and $sec seconds.\n Rob Good judgement comes from experience, and experience - well, that comes from poor judgement. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: HELP !! displaying Associate Array value pairs
love the mnemonic for $!, What just went bang? -Original Message- From: david [mailto:[EMAIL PROTECTED]] Sent: Wednesday, September 04, 2002 1:46 PM To: [EMAIL PROTECTED] Subject: Re: HELP !! displaying Associate Array value pairs Quincy Ntuli wrote: open(INVIN, $sortedListing[$i]) or die COULD NOT OPEN $i\n; if the open is failing, you probably want to know why($! tells you why): open(INVIN, $sortedListing[$i]) or die COULD NOT OPEN $i: $!\n; david The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
globally scoped variables changed
I am trying to pin point some error I am getting with a module (from some old post that one person responded to). I have narrowed it down some point elsewhere in MY programming. The point is a backtick execution. ie. my @output = `some command that spews output`; QUESTION: What are all the possible globally scoped variables that backticks can possible set/unset/change/populate? Thanx! Nikola Janceski As far as I'm concerned, I prefer silent vice to ostentatious virtue. -- Albert Einstein (1879-1955) The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: globally scoped variables changed
thnx to all for the feedback. $! and $? is what I was looking for and anyothers which there aren't. Now I am on a mission to find a bug in XML::Simple related to rsh, system commands and lack of sanity. -Original Message- From: david [mailto:[EMAIL PROTECTED]] Sent: Tuesday, September 03, 2002 2:33 PM To: [EMAIL PROTECTED] Subject: Re: globally scoped variables changed backticks is simply an operator in Perl that tells Perl to run something and capture whatever that external program sends to standout. backticks itself doesn't set/unset/change/pupulate any variables(well except $!, $? etc when Perl is having problem running your program and trying to tell you that). as far as user variable is concern, backticks doesn't change any of those. it's what you assign the output of backticks that matters. it that case, you can capture the output of backticks to anything you like including: my out local david backticks do not change any Nikola Janceski wrote: I am trying to pin point some error I am getting with a module (from some old post that one person responded to). I have narrowed it down some point elsewhere in MY programming. The point is a backtick execution. ie. my @output = `some command that spews output`; QUESTION: What are all the possible globally scoped variables that backticks can possible set/unset/change/populate? Thanx! Nikola Janceski As far as I'm concerned, I prefer silent vice to ostentatious virtue. -- Albert Einstein (1879-1955) -- -- The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: generating arrays on the fly
perhaps a hash of arrays is what you want:
if ($line=~(/^\[\[(\w+)\]\]/)){
$HASH{$1} = [];
}
and you reference the array like
push @{ $HASH{'text'} }, someinfo;
or anyother array functions.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 27, 2002 9:57 AM
To: [EMAIL PROTECTED]
Subject: generating arrays on the fly
hi,
what I'm wanting to do is generate an array named after a
string that is
found in a text file.
i.e something like this:
if ($line=~(/^\[\[(\w+)\]\]/)){
@$1=(); #this is the line I want to acheive my aim with!
}
I know the syntax is wrong, but hopefully it explains what
I'm trying to
do, any clues?
thanks,
Adrian
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Remove elements in an array from a different array
use hashes.
my %HASH;
$HASH{$_}++ foreach @arr1;
delete $HASH{$_} foreach @arr2;
@arr1 = keys %HASH;
@arr1 now has ( one three five );
-Original Message-
From: Priss [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, August 21, 2002 8:54 AM
To: [EMAIL PROTECTED]
Subject: Remove elements in an array from a different array
Hello,
I am very new to Perl, wonder if someone can help me
with this... if I have:
@arr1 = qw (one two three four five);
@arr2 = qw (two four);
How can I remove all elements from @arr2 from @arr1 so
the new array will be @newarr = (one three five)??
Many thanks.
Priss
__
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Remove elements in an array from a different array
See inline comment:
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, August 21, 2002 8:58 AM
To: 'Priss'; [EMAIL PROTECTED]
Subject: RE: Remove elements in an array from a different array
use hashes.
my %HASH;
$HASH{$_}++ foreach @arr1;
delete $HASH{$_} foreach @arr2;
@arr1 = keys %HASH;
To preserve the order change the above line to:
@arr1 = grep $HASH{$_}, @arr1;
@arr1 now has ( one three five );
-Original Message-
From: Priss [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, August 21, 2002 8:54 AM
To: [EMAIL PROTECTED]
Subject: Remove elements in an array from a different array
Hello,
I am very new to Perl, wonder if someone can help me
with this... if I have:
@arr1 = qw (one two three four five);
@arr2 = qw (two four);
How can I remove all elements from @arr2 from @arr1 so
the new array will be @newarr = (one three five)??
Many thanks.
Priss
__
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
--
The views and opinions expressed in this email message are
the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: how to make a regex for a ip address
er.. see correction
-Original Message-
From: Angerstein [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 20, 2002 9:00 AM
To: [EMAIL PROTECTED]
Subject: AW: how to make a regex for a ip address
What about:
/\d?\d?\d\.\d?\d?\d\.\d?\d?\d\.\d?\d?\d\/
/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/
or
@ip = split (/\./);
foreach $part (@ip) {
if ( $part 255 $part =~ /\d?\d?\d\/ ) {
if ( $part 255 $part =~ /^\d{1,3}$/ ) {
die That´s not an IP;
}
}
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: AW: how to make a regex for a ip address
But that would match
000255.000255.000255.000255.
hehehe :)
I like the split loop check.
-Original Message-
From: Samy Kamkar [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 20, 2002 9:02 AM
To: Angerstein
Cc: [EMAIL PROTECTED]
Subject: Re: AW: how to make a regex for a ip address
/^(?:0*(?:2(?:[0-4]\d|5[0-5])|1?\d{1,2})(?:\.|$)){4}/
-Samy
Angerstein wrote:
What about:
/\d?\d?\d\.\d?\d?\d\.\d?\d?\d\.\d?\d?\d\/
or
@ip = split (/\./);
foreach $part (@ip) {
if ( $part 255 $part =~ /\d?\d?\d\/ ) {
die That´s not an IP;
}
}
-Ursprüngliche Nachricht-
Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]Im
Auftrag von
zentara
Gesendet am: Dienstag, 20. August 2002 14:50
An: [EMAIL PROTECTED]
Betreff: Re: how to make a regex for a ip address
On Mon, 19 Aug 2002 12:07:21 -0700, [EMAIL PROTECTED]
(Root) wrote:
for a one liner:
$_ = '12.34.56.78';
map {$_ 256} /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/g || warn(not
valid ip: $_\n);
I tried this with $_ = '1234.2345.56.78'; and received no warning.
That's not good.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
Samy Kamkar -- cp5 -- [EMAIL PROTECTED]
LucidX.com / LA.pm.org / code.LucidX.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: AW: how to make a regex for a ip address
oh and anything else after that last .
000255.000255.000255.000255.slkfdja;ljd;alkjf;lajkd;ljkasfljka;ljdkf;lajsdl;
jkf;lsajd
-Original Message-
From: Nikola Janceski
Sent: Tuesday, August 20, 2002 9:12 AM
To: 'Samy Kamkar'; Angerstein
Cc: [EMAIL PROTECTED]
Subject: RE: AW: how to make a regex for a ip address
But that would match
000255.000255.000255.000255.
hehehe :)
I like the split loop check.
-Original Message-
From: Samy Kamkar [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 20, 2002 9:02 AM
To: Angerstein
Cc: [EMAIL PROTECTED]
Subject: Re: AW: how to make a regex for a ip address
/^(?:0*(?:2(?:[0-4]\d|5[0-5])|1?\d{1,2})(?:\.|$)){4}/
-Samy
Angerstein wrote:
What about:
/\d?\d?\d\.\d?\d?\d\.\d?\d?\d\.\d?\d?\d\/
or
@ip = split (/\./);
foreach $part (@ip) {
if ( $part 255 $part =~ /\d?\d?\d\/ ) {
die That´s not an IP;
}
}
-Ursprüngliche Nachricht-
Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]Im
Auftrag von
zentara
Gesendet am: Dienstag, 20. August 2002 14:50
An: [EMAIL PROTECTED]
Betreff: Re: how to make a regex for a ip address
On Mon, 19 Aug 2002 12:07:21 -0700, [EMAIL PROTECTED]
(Root) wrote:
for a one liner:
$_ = '12.34.56.78';
map {$_ 256} /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/g || warn(not
valid ip: $_\n);
I tried this with $_ = '1234.2345.56.78'; and received
no warning.
That's not good.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
Samy Kamkar -- cp5 -- [EMAIL PROTECTED]
LucidX.com / LA.pm.org / code.LucidX.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: AW: how to make a regex for a ip address
/^(?:(25[0-5]|2[0-4][0-9]|[0-1][0-9]{2}|[1-9]{1,2})\.){3}(25[0-5]|2[0-4][0-9
]|[0-1][0-9]{2}|[1-9]{1,2})$/
shortened from stephen's just a bit.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 20, 2002 9:17 AM
To: [EMAIL PROTECTED]
Subject: RE: AW: how to make a regex for a ip address
/^(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]
)\.(25[0-5]|2[
0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]
|2[0-4][0-9]|[
0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9
]|[0-1]{1}[0-9
]{2}|[1-9]{1}[0-9]{1}|[0-9])$/
Stephen Redding
BT Ignite Solutions
Telephone - 0113 237 3277
Fax - 0113 244 1413
Email - [EMAIL PROTECTED]
http://www.technet.bt.com/sit/public/
British Telecommunications plc
Registered office: 81 Newgate Street London EC1A 7AJ
Registered in England no. 180
This electronic message contains information from British
Telecommunications
plc which may be privileged or confidential. The information
is intended to
be for the use of the individual(s) or entity named above. If
you are not
the intended recipient be aware that any disclosure, copying,
distribution
or use of the contents of this information is prohibited. If you have
received this electronic message in error, please notify us
by telephone or
email (to the numbers or address above) immediately.
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 20, 2002 14:13
To: Nikola Janceski; 'Samy Kamkar'; 'Angerstein'
Cc: '[EMAIL PROTECTED]'
Subject: RE: AW: how to make a regex for a ip address
oh and anything else after that last .
000255.000255.000255.000255.slkfdja;ljd;alkjf;lajkd;ljkasfljka
;ljdkf;lajsdl;
jkf;lsajd
-Original Message-
From: Nikola Janceski
Sent: Tuesday, August 20, 2002 9:12 AM
To: 'Samy Kamkar'; Angerstein
Cc: [EMAIL PROTECTED]
Subject: RE: AW: how to make a regex for a ip address
But that would match
000255.000255.000255.000255.
hehehe :)
I like the split loop check.
-Original Message-
From: Samy Kamkar [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 20, 2002 9:02 AM
To: Angerstein
Cc: [EMAIL PROTECTED]
Subject: Re: AW: how to make a regex for a ip address
/^(?:0*(?:2(?:[0-4]\d|5[0-5])|1?\d{1,2})(?:\.|$)){4}/
-Samy
Angerstein wrote:
What about:
/\d?\d?\d\.\d?\d?\d\.\d?\d?\d\.\d?\d?\d\/
or
@ip = split (/\./);
foreach $part (@ip) {
if ( $part 255 $part =~ /\d?\d?\d\/ ) {
die That´s not an IP;
}
}
-Ursprüngliche Nachricht-
Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]Im
Auftrag von
zentara
Gesendet am: Dienstag, 20. August 2002 14:50
An: [EMAIL PROTECTED]
Betreff: Re: how to make a regex for a ip address
On Mon, 19 Aug 2002 12:07:21 -0700, [EMAIL PROTECTED]
(Root) wrote:
for a one liner:
$_ = '12.34.56.78';
map {$_ 256} /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/g || warn(not
valid ip: $_\n);
I tried this with $_ = '1234.2345.56.78'; and received
no warning.
That's not good.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
Samy Kamkar -- cp5 -- [EMAIL PROTECTED]
LucidX.com / LA.pm.org / code.LucidX.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
--
The views and opinions expressed in this email message are
the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: AW: how to make a regex for a ip address
Ooopss... mistake
/^(?:(25[0-5]|2[0-4][0-9]|[0-1][0-9]{2}|[0-9]{1,2})\.){3}(25[0-5]|2[0-4][0-9
]|[0-1][0-9]{2}|[0-9]{1,2})$/
^
^
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 20, 2002 9:28 AM
To: '[EMAIL PROTECTED]'; [EMAIL PROTECTED]
Subject: RE: AW: how to make a regex for a ip address
/^(?:(25[0-5]|2[0-4][0-9]|[0-1][0-9]{2}|[1-9]{1,2})\.){3}(25[0
-5]|2[0-4][0-9
]|[0-1][0-9]{2}|[1-9]{1,2})$/
shortened from stephen's just a bit.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 20, 2002 9:17 AM
To: [EMAIL PROTECTED]
Subject: RE: AW: how to make a regex for a ip address
/^(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]
)\.(25[0-5]|2[
0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]
|2[0-4][0-9]|[
0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9
]|[0-1]{1}[0-9
]{2}|[1-9]{1}[0-9]{1}|[0-9])$/
Stephen Redding
BT Ignite Solutions
Telephone - 0113 237 3277
Fax - 0113 244 1413
Email - [EMAIL PROTECTED]
http://www.technet.bt.com/sit/public/
British Telecommunications plc
Registered office: 81 Newgate Street London EC1A 7AJ
Registered in England no. 180
This electronic message contains information from British
Telecommunications
plc which may be privileged or confidential. The information
is intended to
be for the use of the individual(s) or entity named above. If
you are not
the intended recipient be aware that any disclosure, copying,
distribution
or use of the contents of this information is prohibited.
If you have
received this electronic message in error, please notify us
by telephone or
email (to the numbers or address above) immediately.
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 20, 2002 14:13
To: Nikola Janceski; 'Samy Kamkar'; 'Angerstein'
Cc: '[EMAIL PROTECTED]'
Subject: RE: AW: how to make a regex for a ip address
oh and anything else after that last .
000255.000255.000255.000255.slkfdja;ljd;alkjf;lajkd;ljkasfljka
;ljdkf;lajsdl;
jkf;lsajd
-Original Message-
From: Nikola Janceski
Sent: Tuesday, August 20, 2002 9:12 AM
To: 'Samy Kamkar'; Angerstein
Cc: [EMAIL PROTECTED]
Subject: RE: AW: how to make a regex for a ip address
But that would match
000255.000255.000255.000255.
hehehe :)
I like the split loop check.
-Original Message-
From: Samy Kamkar [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 20, 2002 9:02 AM
To: Angerstein
Cc: [EMAIL PROTECTED]
Subject: Re: AW: how to make a regex for a ip address
/^(?:0*(?:2(?:[0-4]\d|5[0-5])|1?\d{1,2})(?:\.|$)){4}/
-Samy
Angerstein wrote:
What about:
/\d?\d?\d\.\d?\d?\d\.\d?\d?\d\.\d?\d?\d\/
or
@ip = split (/\./);
foreach $part (@ip) {
if ( $part 255 $part =~ /\d?\d?\d\/ ) {
die That´s not an IP;
}
}
-Ursprüngliche Nachricht-
Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]Im
Auftrag von
zentara
Gesendet am: Dienstag, 20. August 2002 14:50
An: [EMAIL PROTECTED]
Betreff: Re: how to make a regex for a ip address
On Mon, 19 Aug 2002 12:07:21 -0700, [EMAIL PROTECTED]
(Root) wrote:
for a one liner:
$_ = '12.34.56.78';
map {$_ 256} /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/g || warn(not
valid ip: $_\n);
I tried this with $_ = '1234.2345.56.78'; and received
no warning.
That's not good.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
Samy Kamkar -- cp5 -- [EMAIL PROTECTED]
LucidX.com / LA.pm.org / code.LucidX.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
--
The views and opinions expressed in this email message are
the sender's
own, and do not necessarily represent the views and
opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
--
The views and opinions expressed in this email message are
the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL
RE: newbie question
It's not a bug as I see it. You gurus must have told the compiler that $| can only hold a 0 or 1 for whatever reason; Just because something isn't documented, doesn't make it a bug. But even in the docs it tells you, The following names have special meaning to Perl. Translation: Don't do crap with it, unless it's for it's special purpose. -Original Message- From: John W. Krahn [mailto:[EMAIL PROTECTED]] Sent: Tuesday, August 20, 2002 5:22 PM To: [EMAIL PROTECTED] Subject: Re: newbie question Kevin Meltzer wrote: I'm curious as to why. When I mentioned it on channel, a few people didn't see it as a bug either, at first. Being that it is using -- in a way which isn't consistent with -- (it increments as opposed to decrement). In fact, it isn't just with --/++ but + and - will yield the same results. Anyways, just curious why you think that subtracting from 0 yields a 1 doesn't seem like a bug (and when adding 1 never yields a 0). Well, because Perl has lots of special cases like this. Most people don't ever use $| let alone the special properties of $|--. The average programmer just needs to know that setting $| to 1 turns on autoflush and setting $| to 0 turns off autoflush. What about the fact that ++ will increment a string but -- will not decrement it? The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Problems with rsh command
I have posted this to XML and no response there. so maybe it's simpler than that... I have script that uses XML::Simple, which works when run via command line: /yyy/TreeInfo/tmp/gather_os_info.pl but if run it via an rsh command (on the same host for now): /bin/rsh host1 /yyy/TreeInfo/tmp/gather_os_info.pl I get the following error: Can't locate object method new via package XML::SAX::PurePerl (perhaps you forgot to load XML::SAX::PurePerl?) at /yyy/perl-5.6.1-unix/lib/perl5/site_perl/5.6.1/XML/SAX/ParserFactory.pm line 37. ** NOTE **: Specifically it fails on the XMLin() function call supplied by XML::Simple. Strange huh? host1 is the same host where I tested it via command line alone. Please I can't figure this one out for the life of me. Thanx in advance, Nikola Janceski When I am working on a problem I never think about beauty. I only think about how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong. -- Buckminster Fuller (1895-1983) The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Problems with rsh command
nope.. then it would be able to get that far. Remember I have: use XML::Simple; Which calls other modules (XML::SAX etc.) but stranger is that PurePerl.pm is in the same dir as the ParserFactory.pm. plus the onlything I have in my PERL5LIB env var is my private module dirs. I use 'use lib' all the time anyway. -Original Message- From: Tanton Gibbs [mailto:[EMAIL PROTECTED]] Sent: Monday, August 19, 2002 3:44 PM To: Nikola Janceski; Beginners (E-mail) Subject: Re: Problems with rsh command One thing you might check is your PERL5LIB environment variable when you rsh vs when you login. It could be that rsh does not run your .profile and therefore does not set up your environment variables thereby prohibiting perl from seeing the appropriate libraries. The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Problems with rsh command
host1 is one host. the only host that I have been testing this on. via command line it works. via rsh command line it doesn't. via rsh to command prompt, then command lining it, it works. It looks like it is differences in the env. vars. essentially when I use rsh and run a command (ie rsh host1 env) the env is pretty damn empty. but when I just rsh to the host the env comes back full (ie rsh host [wait for prompt] env). now to think of a way to fix this... better to know what env to set so I can set it in the script. Thanx for your help! -Original Message- From: Nikola Janceski [mailto:[EMAIL PROTECTED]] Sent: Monday, August 19, 2002 3:50 PM To: 'Tanton Gibbs'; Beginners (E-mail) Subject: RE: Problems with rsh command nope.. then it would be able to get that far. Remember I have: use XML::Simple; Which calls other modules (XML::SAX etc.) but stranger is that PurePerl.pm is in the same dir as the ParserFactory.pm. plus the onlything I have in my PERL5LIB env var is my private module dirs. I use 'use lib' all the time anyway. -Original Message- From: Tanton Gibbs [mailto:[EMAIL PROTECTED]] Sent: Monday, August 19, 2002 3:44 PM To: Nikola Janceski; Beginners (E-mail) Subject: Re: Problems with rsh command One thing you might check is your PERL5LIB environment variable when you rsh vs when you login. It could be that rsh does not run your .profile and therefore does not set up your environment variables thereby prohibiting perl from seeing the appropriate libraries. -- -- The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: How fatalsToBrowser works ?
RANT Can we have a weekly FAQ on cross posting? Kinda like: Subject: Weekly FAQ on cross posting Don't do it. /RANT -Original Message- From: Connie Chan [mailto:[EMAIL PROTECTED]] Sent: Friday, August 16, 2002 11:38 AM To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: How fatalsToBrowser works ? I am on a Win32 system, and I use the fatalsToBrowser to prompt errors with some scripts. However, the error mesg will also prompt where exactly the file(script) is located. In case, I don't want the full path is exposed. Can I modify sth , perhaps regex s///, to mask the root path ? like : File not found : html/log/connie.txt at C:\WWWroot\CGI-ALL\index.pl line 12. is better be masked as : File not found : html/log/connie.txt at /index.pl line 12. Is that possible ? Rgds, Connie -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Wierd error...
ld.so.1: //perl-5.6.1-unix/bin/perl: fatal: relocation error: file
//perl-5.6.1-unix/bin/perl: symbol fopen64: referenced symbol not found
I suddenly got this error when running a script that I had run an hour ago
with no problem.
I am on a shared env. but this is my private build of perl.
anyone know what can cause this? and how to resolve it?
Nikola Janceski
This is your life and it's ending one minute at a time.
-- Jack ('Fight Club')
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Wierd error...
it occured on this line in my code:
die Something went wrong with '$RSH $OS-{$ext}{machine} $GATHER_INFO $ext
$OS-{$ext}{dir}' command exit status $?
if system( $RSH, -n, $OS-{$ext}{machine}, $GATHER_INFO $ext
$OS-{$ext}{dir} );
this runs a script on another computer.
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Friday, August 16, 2002 3:49 PM
To: Beginners (E-mail)
Subject: Wierd error...
ld.so.1: //perl-5.6.1-unix/bin/perl: fatal: relocation error: file
//perl-5.6.1-unix/bin/perl: symbol fopen64: referenced
symbol not found
I suddenly got this error when running a script that I had
run an hour ago
with no problem.
I am on a shared env. but this is my private build of perl.
anyone know what can cause this? and how to resolve it?
Nikola Janceski
This is your life and it's ending one minute at a time.
-- Jack ('Fight Club')
--
--
The views and opinions expressed in this email message are
the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Wierd error...
I am a dumbass..
I was trying to run a solaris 2.6 compiled version of perl on solaris 2.5.
DUh...
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Friday, August 16, 2002 3:52 PM
To: Nikola Janceski; Beginners (E-mail)
Subject: RE: Wierd error...
it occured on this line in my code:
die Something went wrong with '$RSH $OS-{$ext}{machine}
$GATHER_INFO $ext
$OS-{$ext}{dir}' command exit status $?
if system( $RSH, -n, $OS-{$ext}{machine}, $GATHER_INFO $ext
$OS-{$ext}{dir} );
this runs a script on another computer.
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Friday, August 16, 2002 3:49 PM
To: Beginners (E-mail)
Subject: Wierd error...
ld.so.1: //perl-5.6.1-unix/bin/perl: fatal: relocation
error: file
//perl-5.6.1-unix/bin/perl: symbol fopen64: referenced
symbol not found
I suddenly got this error when running a script that I had
run an hour ago
with no problem.
I am on a shared env. but this is my private build of perl.
anyone know what can cause this? and how to resolve it?
Nikola Janceski
This is your life and it's ending one minute at a time.
-- Jack ('Fight Club')
--
--
The views and opinions expressed in this email message are
the sender's
own, and do not necessarily represent the views and
opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
--
The views and opinions expressed in this email message are
the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: another reg needed
probably what you wanted is: ($row, $col) = /(\d+)/g; -Original Message- From: Jerry Preston [mailto:[EMAIL PROTECTED]] Sent: Friday, August 16, 2002 4:49 PM To: Connie Chan; Beginners Perl Subject: 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 trying to get this ? my ($row, $col) = ($1, $2) =~ m/^.+(\d+).+(\d+)$/; # $row = 0; # $col = 12; /^ means beginning of line ..+ means anything \d+ means 1 more more digit numbers (xxx) capture matched values within blankets in order to $1, $2...$x. $/ means the end of the line. What I want is the 0 and 12. What about the text? So what do you want to deal with the text ? Rgds, Connie -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: another reg needed
doh... forgot the ~ ($row, $col) =~ /(\d+)/g; -Original Message- From: Nikola Janceski [mailto:[EMAIL PROTECTED]] Sent: Friday, August 16, 2002 4:54 PM To: '[EMAIL PROTECTED]'; Connie Chan; Beginners Perl Subject: RE: another reg needed probably what you wanted is: ($row, $col) = /(\d+)/g; The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: another reg needed
soorry.. long week. Brain malfunction, shouldn't have ~ you aren't doing a bitwise, you want the assignment. this is right: ($row, $col) = /(\d+)/g; -Original Message- From: Nikola Janceski [mailto:[EMAIL PROTECTED]] Sent: Friday, August 16, 2002 4:56 PM To: Nikola Janceski; '[EMAIL PROTECTED]'; Connie Chan; Beginners Perl Subject: RE: another reg needed doh... forgot the ~ ($row, $col) =~ /(\d+)/g; -Original Message- From: Nikola Janceski [mailto:[EMAIL PROTECTED]] Sent: Friday, August 16, 2002 4:54 PM To: '[EMAIL PROTECTED]'; Connie Chan; Beginners Perl Subject: RE: another reg needed probably what you wanted is: ($row, $col) = /(\d+)/g; -- -- The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: News from Prague
[off topic] I think drieux has finally lost it. What *it* is, I do not know. Don't know if I have *it* either. -Original Message- From: drieux [mailto:[EMAIL PROTECTED]] Sent: Wednesday, August 14, 2002 10:36 AM To: begin begin Subject: Re: News from Prague On Wednesday, August 14, 2002, at 03:33 , Jenda Krynicky wrote: psycho_rant The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
possible RFC?
WTF doesn't perl -c check for valid subroutines/function calls?
I can write a perlscript calling a function that doesn't exist but perl -c
will say syntax ok.
ie:
% perl -ce nothing_here('some junk')
-e syntax OK
% perl -e nothing_here('some junk')
Undefined subroutine main::nothing_here called at -e line 1.
That doesn't make sense!
It should check function calls at compile time, correct?
So why not for -c?
Excuse me if I have overstepped my bounds. I still love Perl regardless, but
it can be better.
Nikola Janceski
The significant problems we face today cannot be solved at the same level of
thinking we were at when we created them.
-- Albert Einstein (1879-1955)
PS. I still drool over the apocalypse papers on Perl 6. I can't wait!
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: possible RFC?
Okay I understand the dynamic subroutine declarations. but perhaps a warning should be made for -w or 'use warnings'? It's just to find misspelled functions. I use 'use strict' for finding misspelled vars. Is there nothing for finding misspelled functions, aside from running it and hoping for the best? Nikola Janceski What counts is not necessarily the size of the dog in the fight - it's the size of the fight in the dog. -- Dwight D. Eisenhower The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
XML::Simple help needed PLEASE!
I have read and re-read the docs for this module but can't get my thing to
work.
I have an XML file generated by XML::Simple that looks like
opt
date=8/12/2002 show=1 name=V3.0.8 /
date=8/12/2002 show=0 name=V2.6e2.10 /
XXX date=8/12/2002 show=1 name=V3.2.1 /
/opt
When I use XMLin() the data structure looke like:
$VAR1 = {
'XXX' = {
'date' = '8/12/2002',
'name' = 'V3.2.1',
'show' = '1'
},
'' = {
'V2.6e2.10' = {
'date' = '8/12/2002',
'show' = '0'
},
'V3.0.8' = {
'date' = '8/12/2002',
'show' = '1'
}
}
}
they portion is right but only for items that have more than one
version.
XXX has only one version and that should have been the second key.
I read the docs and it says that keyattr is by default ['name', 'key',
'id'], but it's not acting that way for all the items.
Can someone shed some light as to why it's behaving this way?
Thanx in advance,
Nikola Janceski
The mere formulation of a problem is far more essential than its solution,
which may be merely a matter of mathematical or experimental skills. To
raise new questions, new possibilities, to regard old problems from a new
angle requires creative imagination and marks real advances in science.
-- Albert Einstein (1879-1955)
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: add_delta_workdays from Date::Calendar not returning what I'd expect
you know that 7 is Sunday?
you know that 1 is Monday?
right? (this confused me to death for a long time with Date::Calc)
-Original Message-
From: Ian Zapczynski [mailto:[EMAIL PROTECTED]]
Sent: Monday, August 12, 2002 1:58 PM
To: [EMAIL PROTECTED]
Subject: add_delta_workdays from Date::Calendar not returning what I'd
expect
Hello all,
I hope this is not too specific for this list. If so, please let me
know if you have suggestions on a better place to seek the answer for
this.
In the code below, I am using add_delta_workdays from
Date::Calendar to
check if yesterday was a business day. My problem is that it seems to
work when checking for holidays, but when the script runs on
a Saturday
or Sunday, it reports that the previous business day was Thursday, and
*not* Friday as I'd expect. However, on a Monday, it properly
identifies the previous business day as the previous Friday. So I am
quite perplexed.
If anyone out there has a moment to lend some insight, this script can
be easily tested by first running it with the system date set properly
as today, and then setting the date to be either Saturday, August 10th
or Sunday, August 11th (although it happens with any Saturday
or Sunday
I've tried). The dates are not printed out in the same
precise format,
but you'll get the idea.
I hesitate to assume this would be a bug in the module since
it has been
a stable release for so long, so I could really use another
opinion. Or
if you don't receive the same results, perhaps it could be
something in
my environment.
Thanks!!
-Ian
-
#!/usr/bin/perl
#
use strict;
use Date::Calc qw(:all);
use Date::Calendar;
use Date::Calendar::Profiles qw( $Profiles );
my ($year,$month,$day) = Date::Calc-Today();
# figure out what day yesterday was so we can determine if it matches
the previous business day
my ($yesteryear,$yestermonth,$yesterday) =
Add_Delta_Days($year,$month,$day, -1);
# now find out what Date::Calendar says the previous business day is
based on the standard US profile
my ($cal) = Date::Calendar-new( $Profiles-{'US'} );
my ($prevdate) = $cal-add_delta_workdays($year,$month,$day, -1);
print today is $year-$month-$day \n;
print yesterday is $yesteryear-$yestermonth-$yesterday \n;
print the previous business day is $prevdate \n;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: add_delta_workdays from Date::Calendar not returning what I'd expect
just ran your script as is.. and the date is fine for me
output:
today is 2002-8-12
yesterday is 2002-8-11
the previous business day is 20020809
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Monday, August 12, 2002 2:06 PM
To: 'Ian Zapczynski'; [EMAIL PROTECTED]
Subject: RE: add_delta_workdays from Date::Calendar not returning what
I'd expect
you know that 7 is Sunday?
you know that 1 is Monday?
right? (this confused me to death for a long time with Date::Calc)
-Original Message-
From: Ian Zapczynski [mailto:[EMAIL PROTECTED]]
Sent: Monday, August 12, 2002 1:58 PM
To: [EMAIL PROTECTED]
Subject: add_delta_workdays from Date::Calendar not
returning what I'd
expect
Hello all,
I hope this is not too specific for this list. If so, please let me
know if you have suggestions on a better place to seek the
answer for
this.
In the code below, I am using add_delta_workdays from
Date::Calendar to
check if yesterday was a business day. My problem is that
it seems to
work when checking for holidays, but when the script runs on
a Saturday
or Sunday, it reports that the previous business day was
Thursday, and
*not* Friday as I'd expect. However, on a Monday, it properly
identifies the previous business day as the previous
Friday. So I am
quite perplexed.
If anyone out there has a moment to lend some insight, this
script can
be easily tested by first running it with the system date
set properly
as today, and then setting the date to be either Saturday,
August 10th
or Sunday, August 11th (although it happens with any Saturday
or Sunday
I've tried). The dates are not printed out in the same
precise format,
but you'll get the idea.
I hesitate to assume this would be a bug in the module since
it has been
a stable release for so long, so I could really use another
opinion. Or
if you don't receive the same results, perhaps it could be
something in
my environment.
Thanks!!
-Ian
-
#!/usr/bin/perl
#
use strict;
use Date::Calc qw(:all);
use Date::Calendar;
use Date::Calendar::Profiles qw( $Profiles );
my ($year,$month,$day) = Date::Calc-Today();
# figure out what day yesterday was so we can determine if
it matches
the previous business day
my ($yesteryear,$yestermonth,$yesterday) =
Add_Delta_Days($year,$month,$day, -1);
# now find out what Date::Calendar says the previous business day is
based on the standard US profile
my ($cal) = Date::Calendar-new( $Profiles-{'US'} );
my ($prevdate) = $cal-add_delta_workdays($year,$month,$day, -1);
print today is $year-$month-$day \n;
print yesterday is $yesteryear-$yestermonth-$yesterday \n;
print the previous business day is $prevdate \n;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
--
The views and opinions expressed in this email message are
the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: deprewhat?
read:
perldoc -f split
split /PATTERN/,EXPR,LIMIT
split /PATTERN/,EXPR
split /PATTERN/
split Splits a string into a list of strings and returns
that list. By default, empty leading fields are
preserved, and empty trailing ones are deleted.
In scalar context, returns the number of fields
found and splits into the @_ array. Use of split
in scalar context is deprecated, however, because it
clobbers your subroutine arguments.
[snip]
you are using split in scalar context. Anyone know what's the solution to
get around this? other than turning off warnings.
-Original Message-
From: Kirby_Sarah [mailto:[EMAIL PROTECTED]]
Sent: Monday, August 12, 2002 5:29 PM
To: '[EMAIL PROTECTED]'
Subject: deprewhat?
What does this mean?
Use of implicit split to @_ is deprecated at UNIX_prelim.pl line 344.
line 344: $policyCount = split (/\t/, $violations{$vID});
-Sarah
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Deep copy
Hey anyone have the link handy that explained deep copying and had the simplest little code snip to make deep copies? Nikola Janceski We are such stuff as dreams are made on, rounded with a little sleep. -- William Shakespeare The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Deep copy
http://www.stonehenge.com/merlyn/UnixReview/col30.html Found it. Interesting read once you get into large complex data structures. -Original Message- From: Nikola Janceski [mailto:[EMAIL PROTECTED]] Sent: Friday, August 09, 2002 9:46 AM To: 'NYIMI Jose (BMB)'; Nikola Janceski; Beginners (E-mail) Subject: RE: Deep copy Deep copy. I have a data structure (hashes of hashes) I want to make a real/deep copy of the values to store elsewhere. So when I change the values of one, the references don't point to the same values as the original data structure. hence deep copy. -Original Message- From: NYIMI Jose (BMB) [mailto:[EMAIL PROTECTED]] Sent: Friday, August 09, 2002 9:44 AM To: Nikola Janceski; Beginners (E-mail) Subject: RE: Deep copy What you mean by deep copy ? Be more clear :-) José. -Original Message- From: Nikola Janceski [mailto:[EMAIL PROTECTED]] Sent: Friday, August 09, 2002 3:40 PM To: Beginners (E-mail) Subject: Deep copy Hey anyone have the link handy that explained deep copying and had the simplest little code snip to make deep copies? Nikola Janceski We are such stuff as dreams are made on, rounded with a little sleep. -- William Shakespeare -- -- The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] DISCLAIMER This e-mail and any attachment thereto may contain information which is confidential and/or protected by intellectual property rights and are intended for the sole use of the recipient(s) named above. Any use of the information contained herein (including, but not limited to, total or partial reproduction, communication or distribution in any form) by other persons than the designated recipient(s) is prohibited. If you have received this e-mail in error, please notify the sender either by telephone or by e-mail and delete the material from any computer. Thank you for your cooperation. For further information about Proximus mobile phone services please see our website at http://www.proximus.be or refer to any Proximus agent. -- -- The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: speed and perl
personally I don't do speed while writing perl. I tend to break many keys. The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: speed and perl
What? you mean maintainable, effective code is ruining the economy? This is a joke right? Microsoft follows this idea, but they really are in it just for the money and nothing else, and that is ruining our economy. Microsoft idealogy: 1. Write it well enough to be easy to use. 2. get everyone on your software. 3. pass better software (aka enhancements) later with flaws still. 4. force better computers to run the new software (ineffecient code). 5. repeat step 3. But if you write it well the first time you don't make as much money, but you gain lots more respect and reliablity, so when you do send out enhancements, they won't be in quotes *quote motion with fingers*. the Microsoft idea is good for games and NON-CRITICAL systems. but you would want reliablity for critical things. Yeah you can rent the cheap scuba gear, but would you trust it? -Original Message- From: drieux [mailto:[EMAIL PROTECTED]] Sent: Friday, August 02, 2002 1:07 PM To: begin begin Subject: Re: speed and perl On Friday, August 2, 2002, at 08:36 , Dennis G. Wicks wrote: On Fri, 2 Aug 2002, Jenda Krynicky wrote: Computing power is cheap, programmers' time is expensive! [..] The cost of inefficient programs is cumulative and results in increasing all the infrastructure costs because of the requirement for more and more cheap computing power. [..] but that also means more goods and services as more manufactured products are release to compensate for bad coding. in like manner coding it badly the first time also means that if and when the project is identified as 'under-performing' - then of course there is all sorts of employment opportunity for managers, designers, and even software developers. [snip] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: speed and perl
correct that I disapprove of NT based weapons systems. Remember Wargames the movie? They couldn't shutdown WOPR in NORAD because the silos would carry out their final orders. Incoming bogie, Colonel. Defcon 1. Ready silos for launch sequence. Sorry Colonel, my bad, it was just my new WindowsXP cursor. Take us back down to defcon 5. Sorry, no can do. GIANTWINDOW [new WOPR] is rebooting. Oh crap. -Original Message- From: drieux [mailto:[EMAIL PROTECTED]] Sent: Friday, August 02, 2002 2:23 PM To: Beginners (E-mail) Subject: Re: speed and perl On Friday, August 2, 2002, at 10:23 , Nikola Janceski wrote: [..] the Microsoft idea is good for games and NON-CRITICAL systems. but you would want reliablity for critical things. [..] I presume that you then disapprove of NT based weapons systems and avionics packages - and consider the idea of a system reboot as a corrective mechanism for fighter interceptors and other 'fly by wire' technologies to be a sub-optimal survival strategy? or am I merely reading into your position. ciao drieux --- When You absolutely, Positively, Have to get it RIGHT the first time. It may help to work from a solid design on proven technology that works, not merely that sells well... -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Editor
nedit.org -- the best there is (in my book) -Original Message- From: Angerstein [mailto:[EMAIL PROTECTED]] Sent: Wednesday, July 31, 2002 9:55 AM To: Scott Barnett; [EMAIL PROTECTED] Subject: AW: Editor I really love nedit. -Ursprüngliche Nachricht- Von: Scott Barnett [mailto:[EMAIL PROTECTED]] Gesendet am: Mittwoch, 31. Juli 2002 15:44 An: [EMAIL PROTECTED] Betreff: Editor Hi, I am new to Perl just over a month now. I have tried other programming languages and they just seem to hard to understand. I have found Perl to be a lot easier to understand, and that brings me to my question. What is a good Perl Editor for writing scripts? I am currently using Crimson Editor. Thanks Scott Barnett Home Care Medical - Technical Support Specialist 1-800-369-6939 1-262-786-9870 ext.214 E-Mail [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Editor
perhaps you haven't dl-ed the latest version of nedit. It's up to 5.3 now, and has come along way from version 4.2. -Original Message- From: Connie Chan [mailto:[EMAIL PROTECTED]] Sent: Wednesday, July 31, 2002 9:57 AM To: Scott Barnett; [EMAIL PROTECTED] Subject: Re: Editor Me too !! This editor is the greatest I found on Win OS. But have you download the Syntax pack for Perl ? Go ahead if no. Anyway, the other choice for me is Note Tab Lite. But seems very unstable if I am using Chinese ( Perhaps that do not have any infect on you ). But if you are doing a global text replacement, I would suggest using CuteHtml. The replacement speed and quality is the fastest and flexiable( Up to paragraphs ). Rgds, Connie - Original Message - From: Scott Barnett [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, July 31, 2002 9:43 PM Subject: Editor Hi, I am new to Perl just over a month now. I have tried other programming languages and they just seem to hard to understand. I have found Perl to be a lot easier to understand, and that brings me to my question. What is a good Perl Editor for writing scripts? I am currently using Crimson Editor. Thanks Scott Barnett Home Care Medical - Technical Support Specialist 1-800-369-6939 1-262-786-9870 ext.214 E-Mail [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
