On Oct 16, 2008, at 8:08 AM, "John W. Krahn" <[EMAIL PROTECTED]> wrote:
sanket vaidya wrote:
Hi all,
This is the exact same question you asked 16 days ago. Did you not
like the answer you got then? (Which is the same as the answers you
are getting now.)
John
--
Perl isn't a toolbox
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
Hey all,
I'm trying to pull some machine names out of a CSV file, and I'm using
the Pattern Test Program from Learning Perl 4th ed, but I don't think
I have the logic right. Here's a sample line from the CSV file:
TAP0SMITHJ | smithj (192.168.1
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
On Jun 7, 2007, at 3:42 AM, Mumia W. wrote:
Only part is on my end*.
I have to apologize again. I was right the first time. Something of
significance with respect to Google Groups and beginners[at]
perl.org happened on May 25th.
Before May
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
Hey all,
Is it me or are there multiple copies of the same message going to
the list? I've received either two or three copies of the same
message a lot today (just today though).
Thanks,
Tom
-BEGIN PGP SIGNATURE-
Version: GnuPG v1.4.5
You can get the Perl CD bookshelf from O'Reilly and then copy it to your
laptop. It's all HTML. I put it on all of my computers for reference.
Tom
On Thu, 3 Aug 2006, [EMAIL PROTECTED] wrote:
Hello
Is there a downloadable manual for perl? I would like to download the manual
onto my laptop
On Mon, 28 Nov 2005, merlyn@stonehenge.com (Randal L. Schwartz) wrote:
"Tom" == Tom Yarrish <[EMAIL PROTECTED]> writes:
Tom> So it makes it difficult for me to apply what I've read from the
Tom> O'Reilly books to real world problems (and I've read the Ll
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
Hey all,
I've been reading this list for a while, and I've been trying to
learn perl on my own for quite some time. However, my job doesn't
really (from my vantage point at least) "allow" me to do any sort of
programming (by that I mean my day
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
There's also a section on http://learn.perl.org that has books online on
it.
-BEGIN PGP SIGNATURE-
Version: GnuPG v1.2.4 (GNU/Linux)
iD8DBQFBmkXKZWzkfeDiTw4RAk29AJ9I3T1E3Gbc1DY+R1xMmmDn5wUfCACffQe5
HY4RprdalRZX2MbUd1oB/sU=
=n/wv
-END PGP S
Didn't Randall do a voting script for an article in Linux Journal/Mag or
TPJ recently? You might want to look at that.
Thanks,
Tom
--
#!/usr/bin/perl -w # 526-byte qrpff, Keith Winstein and Marc Horowitz
<[EMAIL PROTECTED]> # MPEG 2 PS VOB file on stdin -> descrambled output
on stdout # argume
Hey all,
Okay, I'm still trying to get this log file script to work. The end
result should just be, if it's the 18th, the log file should be
09FIMSOM090Aevent-20010717.log. However, I keep getting it to produce
the same day, instead of the previous. This script is set to run on an NT
server
Hey all,
Okay, I have this script that I asked about a few days ago, that allows me
to move some log files and put a date on the filename when they are moved.
This is a script that runs daily (currently) on two machines. One server
is a test server, the other is a backup production server. Now,
I do have one additional question with the suggestion for the @days array.
How does this affect the month. Localtime returns the month-1, so I would
have to adjust for that during the month, and then leave it alone at the
end of the month. Or was this a suggestion to replace the if/else part?
T
Thanks for the help. Just as a side note, the check for $days being less
than one was after I put the first version in production. I had the day
value being subtracted somewhere else, so the first of the month because 0
instead of 28, 30, or 31. Which is where the subroutine came to be.
On Mon
Hey all,
Okay, here's some background on this. I wrote a script (to replace an
older batch file) for an NT server. The purpose of this script is to shut
down a service, then move three files to another directory, and add the
date to the end of the filename (ex. foo-20010709.log). Now, when I
te
Hey all,
Okay, new script, quick question. On Windows NT (comments aside), how would one
accomplish the following?
(this would be on Unix)
$date = `date +"%Y%m%d";
I need to pass the current date to a variable to use later in a script.
Thanks,
Tom
#!/usr/bin/perl -w
# 526-byte qrpff, K
71))
[$_]^(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval
On 26 Jun 2001, Chas Owens wrote:
> On 26 Jun 2001 10:23:13 -0500, Tom Yarrish wrote:
> > Well, if the tail filehandle acts like a regular tail on the command line,
> > then
Well, if the tail filehandle acts like a regular tail on the command line,
then no. The first line in the tail does not contain the pattern, the
second line does. Here's what the tail on that log looks like:
INFOR 05:02:00AuthData=()
WARNG 05:02:00 VCI_Login : TECH_VCI_ERROR 0
mation.com/~perl/tut for some tutorials about this)
>
> last, you dont want to use 'exit' in that else statement, seeing that will
> not only exit the loop, but will exit the entire program
> you're probably looking for 'last'
>
> hth,
>
> Jos BOumans
>
Hey all,
Okay, I'm still working on my little Net::Telnet project, but a different
section of the code is giving me a problem. I thought I had an
understanding of regex an if/else, but apparently not.
Here's the code snippet:
open(TAIL, "tail $glmiss_log|") or die "Can't tail on $glmiss_log: $
anks in advance for any and all suggestions. My aim is to be able to
> telnet to a site, and once there work allow the user to work at the
> site,
> till the time when the user might wish to telnet to another site. If
> the
> second site is connected to the first, the program shoudl
Hey all,
Okay, I'm playing with Net::Telnet, and I've gotten to the point where I
connect to the other machine. What I wanted to know is, can I run and
interact with a program just using the cmd() part of that module? Or do I
need to use another module to do that. Basically what I'm going is
te
Dave,
I live in Chicago as well. I just finished taking Sun's perl class, and
it was pretty good. However, if you can afford it, you should probably
look into taking Randal's classes @ Stonehenge. From what I understand it
basically goes through the Learning Perl book.
If you can't afford it, I
try:
>
> while () { $users{$1} = "Offline" if (/^(\d{3})/) }
>
> or the more verbose
>
> while () {
> #if this line has a key
> if (/^(\d{3})/) {
> #then add it to the hash
> $users{$1} = "Offline"
> }
builtin data
> # match line of at least 3 digits at beginning of line
> /^(\d{3})/; # or more visually $_ =~ /^(\d{3})/;
> $hash{$1} = "Offline"; # set $hash{matched char} = "Offline"
> }
>
> while ( (my $key, my $value) = each %hash ) {
> p
3 digits in the first
> three characters and set $hash{digits} to "Offline". After executing the
> above code, I get the following 'keys' from %hash:
>
> 305
> 113
> 307
>
> You might want to be more restrictive in your regex, if you don't want
> s
Hey all,
Well, the subject says it all. Four days removed from a Perl class, and I
feel like I'm forgetting everything (guess that's what happens when you
don't take Randal's class ;p).
Anyway, here's what I'm trying to do. I have a file that I'm reading into
the program with an open command. E
Well, if anyone is interested, my first day at Sun's Perl Class went pretty well.
However, I do have a couple of questions that came up during the course of the day.
I'm hoping someone can clarify.
1) Okay, with array slices...they give you an example of doing this:
($f[0], $f[1], $f
Take the Sun Education class which is only 10 minutes from my house. ;p
Tom
*** REPLY SEPARATOR ***
On 6/8/2001 at 7:40 PM Peter Scott was rumored to say:
>At 11:56 AM 6/8/01 -0500, Tom Yarrish wrote:
>>Randal,
>>I actually looked at Stonehenge (I would have
=($m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t
^=(72,@z=(64,72,$a^=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271))
[$_]^(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval
On 8 Jun 2001, Randal L. Schwartz wrote:
> >>>&
Hey all,
Just a throw out question. My company is paying for me to go to a Sun Ed
Perl class next week. I'm excited to go, since I haven't had a lot of
time to learn on my own (wife has a problem when I'm at the computer too
much). Anyway, I was wondering if anyone has ever taken this class, an
^=(72,@z=(64,72,$a^=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271))
[$_]^(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval
On Wed, 23 May 2001, Adam Turoff wrote:
> On Wed, May 23, 2001 at 02:59:13PM -0500, Tom Yarrish wrote:
> &
Hey all,
Been reading the list for a little while, and had sort of a philosophy
question for the group. I've been trying to learn Perl for some time (in
fact, my company has offered to pay for me to take a Sun course on it).
In the mean time I've been reading through the standard Perl books
(Lear
32 matches
Mail list logo
