-Original Message-
From: Adilson P. de Souza [mailto:[EMAIL PROTECTED]
Sent: Wednesday, August 16, 2006 8:08 AM
To: beginners@perl.org
Subject: Perl on Windows Server.
Hi All
This is my first post at beginner list. I work with PHP/MySQL and now
i
have to modify a aplication
-Original Message-
From: Jerry Rocteur [mailto:[EMAIL PROTECTED]
Sent: Wednesday, August 02, 2006 4:59 AM
To: beginners@perl.org
Subject: Multiple line parameters in parameter file
Hi,
I've just searched the web and tried the archives but that is down at
the
moment.
I'm
-Original Message-
From: WCJ d/b/a http://ccsh.us/
[mailto:[EMAIL PROTECTED]
Sent: Monday, July 31, 2006 8:59 AM
To: beginners perl
Subject: Re: Major Applications of Perl
On 7/31/06, Sastry [EMAIL PROTECTED] wrote:
Are there any other major applications using Perl and
-Original Message-
From: John W. Krahn [mailto:[EMAIL PROTECTED]
Sent: Tuesday, July 18, 2006 11:48 AM
To: Perl Beginners
Subject: Re: Passing a hash to a function
Bjørge Solli wrote:
On Tuesday 18 July 2006 16:45, John W. Krahn wrote:
Leonid Grinberg wrote:
sub function
{
-Original Message-
From: Mumia W. [mailto:[EMAIL PROTECTED]
Sent: Monday, July 10, 2006 11:55 AM
To: Beginners List
Subject: Re: write out filenames of files existing on a filesystem
into
afile
Randal L. Schwartz wrote:
Rob == Rob Dixon [EMAIL PROTECTED] writes:
Robmy
-Original Message-
From: Mazhar [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 29, 2006 11:44 AM
To: Perl Beginners
Subject: Script Required to Check a range of IP's
Hi Folks,
Howdy,
I have a requirement of writing down a script to check the range of
IP's
in
a text file
-Original Message-
From: Mazhar [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 29, 2006 12:51 PM
To: Ryan Frantz
Cc: Perl Beginners
Subject: Re: Script Required to Check a range of IP's
On 6/29/06, Ryan Frantz [EMAIL PROTECTED] wrote:
-Original Message-
From: Mazhar
Here's the same thing but Perl Best Practice ified a bit:
#!/usr/bin/perl
use strict;
use wanrings;
use Net::Ping;
die 'Please give me a filename as my argument!' if !defined $ARGV[0];
open(my $ipfile_fh, '', $ARGV[0]) || die Could not open $ARGV[0]:
$!;
my $icmp =
-Original Message-
From: Mihir Kamdar [mailto:[EMAIL PROTECTED]
Sent: Saturday, June 24, 2006 10:41 AM
To: beginners
Subject: CSV file that can be loaded to Microsoft Outlook
hi,
Howdy,
I have written a perl script whose output is a CSV file(semicolon
seperated)
'CSV'
Perlers,
I've delving into XML for the first time, bear with me...
I've constructed a document type that is modeled after the objects found
in the ADSI namespace for an IIS server and there are cases where some
objects have multiple instances (new to objects too, so I hope I didn't
butcher that
-Original Message-
From: Ryan Frantz
Sent: Friday, June 02, 2006 1:25 PM
To: beginners
Subject: Determining Reference Type
Perlers,
I've delving into XML for the first time, bear with me...
I've constructed a document type that is modeled after the objects
found
-Original Message-
From: Ryan Frantz
Sent: Friday, June 02, 2006 1:48 PM
To: beginners
Subject: RE: Determining Reference Type
-Original Message-
From: Ryan Frantz
Sent: Friday, June 02, 2006 1:25 PM
To: beginners
Subject: Determining Reference Type
--snip
-Original Message-
From: Joshua Colson [mailto:[EMAIL PROTECTED]
Sent: Tuesday, May 23, 2006 1:34 PM
To: JupiterHost.Net
Cc: beginners
Subject: Re: What are the most successful applications of Perl?
Thanks.
On Tue, 2006-05-23 at 10:33 -0500, JupiterHost.Net wrote:
I also
-Original Message-
From: Chandru [mailto:[EMAIL PROTECTED]
Sent: Monday, May 22, 2006 2:23 AM
To: Jeff Pang
Cc: beginners@perl.org
Subject: Re: Looking for example Perl scripts to be used in Perl
Training.
please send it
-Chandru.
Jeff Pang wrote:
Looking for example
-Original Message-
From: Rob Coops [mailto:[EMAIL PROTECTED]
Sent: Monday, May 22, 2006 9:17 AM
To: Ryan Frantz
Cc: beginners@perl.org
Subject: Re: Looking for example Perl scripts to be used in Perl
Training.
Ryan I guess there is a diffrence between knowing the internal workings
-Original Message-
From: Umesh T G [mailto:[EMAIL PROTECTED]
Sent: Friday, May 19, 2006 8:54 AM
To: Perl Beginners
Subject: Grep a variable
Hi List,
I am trying to grep a variable from a scalar value. Here is the
example
below.
$var = mydisk;
$line = mydisk is bad;
if
-Original Message-
From: SkyBlueshoes [mailto:[EMAIL PROTECTED]
Sent: Friday, May 12, 2006 11:50 AM
To: beginners@perl.org
Subject: Hide password on console
I've googled it over and over, but I can't find the way to hide the
input of a password on the console screen. I know it
-Original Message-
From: Chad Perrin [mailto:[EMAIL PROTECTED]
Sent: Friday, May 12, 2006 2:45 PM
To: beginners@perl.org
Subject: Re: object-oriented perl mailing list
On Sat, May 13, 2006 at 12:05:46AM +0800, Jeff Pang wrote:
Don't ask too much,just read and write more pls.I
-Original Message-
From: Bryan R Harris [mailto:[EMAIL PROTECTED]
Sent: Wednesday, May 10, 2006 12:37 PM
To: Beginners Perl
Subject: pointer to subroutine?
I have a little perl calculator tool that folks in our group use for
various
things... One of the routines it has is
-Original Message-
From: Chad Perrin [mailto:[EMAIL PROTECTED]
Sent: Tuesday, May 02, 2006 4:37 AM
To: Mr. Shawn H. Corey
Cc: Chad Perrin; beginners@perl.org
Subject: Re: [OT] I give up with the reply-to business already
Please refrain from sending me two copies of an email. If
-Original Message-
From: anu p [mailto:[EMAIL PROTECTED]
Sent: Friday, April 28, 2006 11:51 AM
To: beginners@perl.org
Subject: Modifiaction time of file
Hi,
I have a requirement where I need to look at the age
of file, if it's older than 2 days, I should remove
it.
I am
-Original Message-
From: Chad Perrin [mailto:[EMAIL PROTECTED]
Sent: Thursday, April 27, 2006 6:14 PM
To: beginners@perl.org
Subject: Re: problem with whitespace not splitting on split.
On Thu, Apr 27, 2006 at 08:42:51AM -0500, Rance Hall wrote:
some mail readers are probably
Perlers,
I just got a copy of Intermediate Perl (the updated version of Learning
Perl Objects, References, and Modules, aka Alpaca) and started reading.
I've been coding Perl for about 18 months now and every time I see '$_'
I immediately understand its use in the context of the code, but I don't
-Original Message-
From: Steve Bertrand [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 29, 2006 9:29 AM
To: beginners@perl.org
Subject: RE: Whimsical Question
For example, when I see '#!', I read 'shebang' and it rolls off
the
tongue, but 'dollar underscore' is clumsy.
-Original Message-
From: Curt Shaffer [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 07, 2006 11:06 AM
To: beginners@perl.org
Subject: mail list via script
I have a need to mail 1000 users their usernames and passwords, this
will
be
a 1 time thing. I was thinking that I could
-Original Message-
From: Curt Shaffer [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 07, 2006 11:21 AM
To: Ryan Frantz; beginners@perl.org
Subject: RE: mail list via script
-Original Message-
From: Ryan Frantz [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 07, 2006
Perlers,
I've been researching Perl's support for CDO and found from a few
sources (namely ActiveState mailing list archives) that it's possible to
make a(n almost) one-to-one conversion of say, VBScript code to Perl
using Win32::OLE. Do any of you know of any decent references for CDO
I've got a few reports that are generated by a third-party app that we use and
the raw report files include incomprehensible strings at the beginning of each
page like so:
k2Sl6D
Sometimes there are control characters (shown below as normal text i.e. ^D~Q)
throughout the file:
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf
Of
Tom Phoenix
Sent: Thursday, February 23, 2006 2:43 PM
To: Ryan Frantz
Cc: beginners@perl.org
Subject: Re: Non-printing Characters
On 2/23/06, Ryan Frantz [EMAIL PROTECTED] wrote:
I've got
All,
I've been working on a script to grab the owner of processes on my
systems and it works great if I limit it to one machine at a time. If
try to pass it multiple hostnames in a loop, it bombs out after the
first host is completed. I've Googled, checked the docs for the module,
and
-Original Message-
From: Timothy Johnson [mailto:[EMAIL PROTECTED]
Sent: Wednesday, February 01, 2006 6:12 PM
To: Ryan Frantz; beginners@perl.org
Subject: RE: Win32::Process::Info - Get Owner Information
What exactly do you mean by bombs out?
The script will process the first
-Original Message-
From: Chas Owens [mailto:[EMAIL PROTECTED]
Sent: Wednesday, February 01, 2006 6:28 PM
To: Ryan Frantz
Cc: Timothy Johnson; beginners@perl.org
Subject: Re: Win32::Process::Info - Get Owner Information
I just had another thought. Have you tired putting the same
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Tuesday, January 24, 2006 3:05 PM
To: beginners@perl.org
Subject: rename file on ftp server
All,
I have a task to complete for a user. He wants me to rename a file on
a
remote server so that he can
-Original Message-
From: Aditi Gupta [mailto:[EMAIL PROTECTED]
Sent: Tuesday, January 10, 2006 4:16 AM
To: Perl Beginners
Subject: GD Graph
Hello Everybody,
Howdy,
Is there a way to plot each point separately on a 2D plot using
GD::Graph
instead of passing the two
-Original Message-
From: Raoul Ripmeester [mailto:[EMAIL PROTECTED]
Sent: Tuesday, January 10, 2006 4:48 PM
To: beginners@perl.org
Subject: Splitting file
Hello all,
Hello,
I am a newbe so please bare with me :
I am trying to split lines of a file into variables so I can
-Original Message-
From: Brian Volk [mailto:[EMAIL PROTECTED]
Sent: Monday, December 12, 2005 4:47 PM
To: beginners@perl.org
Subject: RE: sort files by creation time
After running a few tests... :~) I think I might be able to sort on
the
inode... ? Does this make sense?
my
Perlers,
Can the HELO string be set using Mail::Send? I've done it for Net::SMTP
but cannot locate anything in the Mail::Send documentation (or online)
that demonstrates as much.
I have an internal host (host.privatedomain.com) that needs to email my
phone but my provider blocks email
-Original Message-
From: ZHAO, BING [mailto:[EMAIL PROTECTED]
Sent: Thursday, November 17, 2005 12:15 AM
To: Bob Showalter
Cc: beginners@perl.org
Subject: New on Mail::Send
I am on Windows XP home edition. I have this software
Secure
Shell which tunnels to
a
-Original Message-
From: ZHAO, BING [mailto:[EMAIL PROTECTED]
Sent: Wednesday, November 16, 2005 3:26 PM
To: beginners@perl.org
Subject: follow-up questions on Mail::Send
Hi,
I have used small single package named as X.pm
before,
never big ones. But for
-Original Message-
From: ZHAO, BING [mailto:[EMAIL PROTECTED]
Sent: Wednesday, November 16, 2005 4:09 PM
To: beginners@perl.org
Subject: Re: follow-up questions on Mail::Send
Oh, I indeed did what you'll just told me to do:
1. I first downloaded this MailTools-1.67.tar.gz
2.
-Original Message-
From: ZHAO, BING [mailto:[EMAIL PROTECTED]
Sent: Tuesday, November 15, 2005 10:34 AM
To: Perl Beginners
Subject: about email sender
Hi, all:
I have tried to read the email::sender module on CPAN,
but
it is far beyond my
ablilty to understand
-Original Message-
From: ZHAO, BING [mailto:[EMAIL PROTECTED]
Sent: Tuesday, November 15, 2005 1:01 PM
To: Ryan Frantz
Subject: Re: about email sender
I have tried Email::Sender. The description of its seems to make the
most
sense and in order to do
that,, I have to install
-Original Message-
From: Rob.Savino [mailto:[EMAIL PROTECTED]
Sent: Wednesday, November 09, 2005 1:50 PM
To: beginners@perl.org
Subject: help with matching
I'm working on a simple script to get a list of users who do not exist
while () {
$user = system(echo $_);
-Original Message-
From: Shawn Corey [mailto:[EMAIL PROTECTED]
Sent: Tuesday, November 08, 2005 10:59 AM
To: beginners@perl.org
Subject: Re: processing at preset times
Frank Bax wrote:
I realise that my subject line might suggest use of cron, but this
is
not workable unless
-Original Message-
From: ZHAO, BING [mailto:[EMAIL PROTECTED]
Sent: Friday, November 04, 2005 2:16 PM
To: beginners@perl.org
Subject: about cron and perl
Hi,
I was advised to check out man cron for how to use cron.
Set
off do_it.pl using cron.
But that's about it ,
-Original Message-
From: Charles Li [mailto:[EMAIL PROTECTED]
Sent: Thursday, October 27, 2005 9:38 AM
To: beginners@perl.org
Subject: send email with Perl
Hi,
I am using use Net::SMTP; to send email to multiple
people. But the recipients can not send the other
receiver
-Original Message-
From: Dermot Paikkos [mailto:[EMAIL PROTECTED]
Sent: Thursday, October 27, 2005 6:07 AM
To: beginners@perl.org
Subject: Is this script safe?
Hi,
I wanted a script that would rename files from lower to upper case. I
have something but I am a bit worried
-Original Message-
From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]
Sent: Thursday, October 20, 2005 2:22 PM
To: Bryan R Harris
Cc: Beginners Perl
Subject: Re: HTAB, VTAB in a terminal?
On Oct 20, Bryan R Harris said:
Curses is a CPAN module, correct?
I have an
-Original Message-
From: Bryan R Harris [mailto:[EMAIL PROTECTED]
Sent: Thursday, October 20, 2005 3:02 PM
To: Beginners Perl
Subject: Re: HTAB, VTAB in a terminal?
Curses is a CPAN module, correct?
I have an office-full of users here, most of which will not not
have
Perlers,
I'm working on a script that will need to email clients if it finds
files in their respective outbound directories. I've decided on a
simple config file:
[foo]
[EMAIL PROTECTED]
[bar]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
I've written a simple parser but it doesn't
-Original Message-
From: Brian Volk [mailto:[EMAIL PROTECTED]
Sent: Monday, October 17, 2005 3:51 PM
To: [EMAIL PROTECTED]; beginners@perl.org
Subject: RE: Running Perl on PC
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Monday, October
Perlers,
Is there are way to format a variable before placing it into an array or
hash? I have several variables that contain floating point numbers that
I format prior to printing out:
my $float = 12.3456;
print %2.1f\n, $float;
I'd like to place these scalars into an array for
-Original Message-
From: Wiggins d'Anconia [mailto:[EMAIL PROTECTED]
Sent: Wednesday, October 12, 2005 5:31 PM
To: Ryan Frantz
Cc: Perl Beginners List
Subject: Re: Formatting Variables
Ryan Frantz wrote:
Perlers,
Is there are way to format a variable before placing
-Original Message-
From: ZHAO, BING [mailto:[EMAIL PROTECTED]
Sent: Monday, October 10, 2005 4:48 PM
To: Perl Beginners List
Subject: keeping track of the 'age' of a file
Hi,
Sorry I have to ask random questions again, perl is so
profoud and I just finished
Perlers,
I have a script where I redirect STDERR to a file so that I can capture
'die' messages like so:
use warnings;
use strict;
my $logfile = /some/path/logfile.txt;
open STDERR, $logfile;
something or die Unable to do something()\n;
close STDERR;
Is it kosher to do this? Or is there a
-Original Message-
From: Bakken, Luke [mailto:[EMAIL PROTECTED]
Sent: Wednesday, October 05, 2005 5:24 PM
To: Ryan Frantz
Cc: beginners@perl.org
Subject: RE: Missing objects in Database
Ryan Frantz wrote:
But that does not work. Then I saw that for non-SELECT statements
Perlers,
ActiveState Perl 5.8.2
MS SQL Server 2000 SP3
I'm working on a script that finds tables in a database and then prints
out the results of a stored procedure run against each of them. There
are some tables that the DBD::ODBC driver complains don't exist. They
do, but they're
-Original Message-
From: Bakken, Luke [mailto:[EMAIL PROTECTED]
Sent: Wednesday, October 05, 2005 4:03 PM
To: Ryan Frantz
Subject: RE: Missing objects in Database
Ryan Frantz wrote:
Perlers,
ActiveState Perl 5.8.2
MS SQL Server 2000 SP3
I'm working on a script
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Wednesday, September 28, 2005 12:08 PM
To: beginners@perl.org
Subject: Re: WELCOME to beginners@perl.org
Any idea how to install Spreadsheet::ParseExcel?
Just for giggles, I'm gonna assume that you're
Perlers,
I'm struggling; I'm using WMI to monitor a few processes (kinda like my
last disk monitor) but my output repeats the first process in a list for
as many items as I have in the list. See below:
use warnings;
use strict;
use Win32::OLE('in');
my $megaBytes = 1048576;
my $serverObj =
-Original Message-
From: Dave Adams [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 27, 2005 5:17 PM
To: beginners perl
Subject: Shift Question
QUESTION: What is the purpose of the line my $msg = shift;? I am
guessing it is for the @_ array but what list element is there to
-Original Message-
From: Ryan Frantz
Sent: Tuesday, September 27, 2005 5:27 PM
To: Dave Adams; beginners perl
Subject: RE: Shift Question
-Original Message-
From: Dave Adams [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 27, 2005 5:17 PM
To: beginners perl
-Original Message-
From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 27, 2005 8:20 PM
To: Ryan Frantz
Cc: beginners perl
Subject: Re: Block Confusion
On Sep 27, Ryan Frantz said:
# list the processes to hunt for
my @findProcesses = (
putty
-Original Message-
From: Dave Adams [mailto:[EMAIL PROTECTED]
Sent: Friday, September 23, 2005 1:59 PM
To: beginners perl
Subject: Looking for perl scripts to remove ^M
Sometimes I get perl scripts that were developed on windows and then
brought over to UNIX and the scripts
-Original Message-
From: Ankur Gupta [mailto:[EMAIL PROTECTED]
Sent: Friday, September 23, 2005 2:48 PM
To: Dave Adams
Cc: beginners perl
Subject: Re: Looking for perl scripts to remove ^M
On 9/23/2005 11:28 PM Dave Adams wrote:
Sometimes I get perl scripts that were
Perlers,
I'm working on a small script that checks the free space on local fixed
drives on my system. Since there other drive types (i.e. floppy,
CD-ROM, network maps) I want to exclude those. I decided to use a hash
but the script still displays all of the drives on my system. If I just
use
-Original Message-
From: Bakken, Luke [mailto:[EMAIL PROTECTED]
Sent: Friday, September 23, 2005 3:26 PM
To: Ryan Frantz
Subject: RE: Hash Problem
Ryan Frantz wrote:
my %ignoreDriveTypes = (
'floppy' = '2',
'network' = '4',
'cdROM' = '5',
);
Try taking
-Original Message-
From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]
Sent: Friday, September 23, 2005 3:45 PM
To: Ryan Frantz
Cc: beginners perl
Subject: Re: Hash Problem
On Sep 23, Ryan Frantz said:
I'm working on a small script that checks the free space on local
fixed
Perlers,
I need to send an email to several different recipients, all at
different mail servers. I thought that a hash of arrays (my first time)
would do the job nicely, but Net::SMTP complains that I can't coerce
array into hash.
Here's my script (Win32):
# hash the recipients - a
Perlers,
I'm working on a script to check the application log on one of my
servers for a specific event using Win32::EventLog. For some reason, I
don't get all of the event entries returned. In this case I have 1196
entries, but only 353 are output by the script (so says $log-GetNumber
and
-Original Message-
From: Ryan Frantz
Sent: Wednesday, August 31, 2005 11:57 AM
To: beginners@perl.org
Subject: Win32::EventLog - Missing Events
Perlers,
I'm working on a script to check the application log on one of my
servers for a specific event using Win32::EventLog
-Original Message-
From: Tim Wolak [mailto:[EMAIL PROTECTED]
Sent: Monday, August 29, 2005 2:08 PM
To: beginners@perl.org
Subject: windows registry
All,
This is my first attempt at using perl to work with a windows system
and need some help. I need to check for some registry
-Original Message-
From: Wiggins d'Anconia [mailto:[EMAIL PROTECTED]
Sent: Friday, August 26, 2005 11:27 AM
To: Daniel Kurtz
Cc: beginners@perl.org
Subject: Re: Need a list of files in a dir.
Please bottom post...
Daniel Kurtz wrote:
Ooh ooh ooh! One I know!
-Original Message-
From: Luinrandir [mailto:[EMAIL PROTECTED]
Sent: Friday, August 26, 2005 2:53 PM
To: Daniel Kurtz
Cc: beginners@perl.org
Subject: Re: Need a list of files in a dir.
Thanks Daniel.. and keep on TOP POSTING!
Not to start a flame war, but it has been
-Original Message-
From: Daniel Kurtz [mailto:[EMAIL PROTECTED]
Sent: Friday, August 26, 2005 3:49 PM
To: beginners@perl.org
Subject: RE: Need a list of files in a dir.
From: Randal L. Schwartz [mailto:[EMAIL PROTECTED]
Daniel Why? It works.
Not on Unix it doesn't. And there
Perlers,
I'm stumped; I have a script that should output to a file but it
doesn't. The file is created, but it's empty after the script
completes. To be sure I was getting some sort of output, I had the
script write to the terminal and all was well. The odd thing, however,
is that I still
-Original Message-
From: Ryan Frantz
Sent: Monday, August 22, 2005 11:32 AM
To: Beginners Perl
Subject: I/O: Can't Output to a File
Perlers,
I'm stumped; I have a script that should output to a file but it
doesn't. The file is created, but it's empty after the script
-Original Message-
From: Brent Clark [mailto:[EMAIL PROTECTED]
Sent: Friday, August 19, 2005 3:40 AM
To: Beginners Perl
Subject: not using strict problems
Hi list
I have a problem whereby another new programmer (like myself) likes
NOT to
use strict in his code where by I do.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]
Sent: Tuesday, August 09, 2005 10:39 AM
To: beginners@perl.org
Subject: Seeding variables from command line
Sorry to bother everyone, but i was working on this yesterday and i
couldn't get it to work. I guess i
Perlers,
I'd like to use Net::DNS to verify that that my external name servers
are running DNS and returning the correct records. How does one specify
an alternate DNS server to use when querying?
I've Googled and RTFM but can't seem to find the answer. Is Net::DNS
appropriate? Or is
-Original Message-
From: Wiggins d'Anconia [mailto:[EMAIL PROTECTED]
Sent: Friday, August 05, 2005 4:12 PM
To: Ryan Frantz
Cc: beginners@perl.org
Subject: Re: Net::DNS - Specify a Name Server
Ryan Frantz wrote:
Perlers,
I'd like to use Net::DNS to verify that that my
Here is one way to approach:
!perl
use strict;
use warnings;
my %AlphaToNbr = qw(jan 1 feb 2 mar 3 apr 4 may 5 jun 6 jul 7 aug 8
sep 9
oct 10 nov 11 dec 12);
foreach my $MySortedFile (sort { $a-[1] = $b-[1]
or
$AlphaToNbr{lc($a-[2])} =
$AlphaToNbr{lc($b-
Just take DATA and replace that with @user_links. The code
should
look like:
@user_links = ( sort {
$a-[1] = $b-[1]
or
$AlphaToNumber{lc($a-[2])} = $AlphaToNumber{lc($b-[2])}
or
$a-[3] = $b-[3]
}
map {[$_, /^.(\d{4})(\w{3})(\d{2})/]}
Perlers,
I'm working on a script that will generate a listing of files on a
regular basis so that I can create hyperlinks to each respective file.
As you see from the sorted output below, though it is in ASCIIbetical
order, it is not in chronological order:
/2005Jul01-2005Jul02/foo/bar.html
Is there any decent documentation available that I could study so
that I can sort this better?
As soon as I hit Send on this email I checked my 'Learning Perl' book
and found some information (Ch. 15, not that far yet ;^)). Prior to
implementing anything, I want to understand what's going
Perlers,
I'm working on a script that iterates over a log file looking for known
hosts so that their messages can be grouped in a summary report.
However, when I run the script, the array I create includes entries for
previous hosts that were found. I thought that I could empty the array
at the
for my $host (@hosts) {
my %freq;
$freq{$_}++ for grep /$host/i, @logfile;
# open file
for (sort keys %freq) {
print $_: $freq{$_}\n;
}
# close file
}
Voila.
I noticed that you use the default '$_'; as a matter of
style/programming, what
exec '/bin/original-print-something', @processed_args or die
Couldn't
exec /bin/original-print-something: $!;
My problems come when I get a command-line like this:
# cat /etc/hosts | /bin/print-something -a -b some-option -c
someother-option
In this case, my LOG file will
You don't have to. Intelligent posters quote what they need,
editing out the superfluous stuff. Note how the comments go
close to the quoted material?
I'll take that one on the chin. ;)
users don't even realize that there is a reply in
bottom-posted emails.
Look, that idiot send me
Sure, don't top-post. But then who's gonna bother to scroll to the end
of the email as the thread gets longer? Many users don't even realize
that there is a reply in bottom-posted emails. Bottom-posting ignores
the natural behavior of most users.
Another example of human behavior (top vs.
I'm (very) new to Perl but I thought there was an easier way to do this.
I use the '-w' switch when specifying my interpreter at the beginning of
my script:
#!/usr/bin/perl -w
and it always tells me if I have a declared variable that doesn't get
used.
ry
-Original Message-
From: Bob
strict;' I get a flurry of other messages ;).
my $perl_experience = n00b
-Original Message-
From: Wagner, David --- Senior Programmer Analyst --- WGO
[mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 08, 2005 3:21 PM
To: Ryan Frantz; Troy S; beginners@perl.org
Subject: RE: perl question
92 matches
Mail list logo
