folks may also take a look under the covers
in the blogWare that is popular amongst various
blogs out there. they might also look at what
is under the covers in the wikipedia movement.

So the fact that perl is in use, and not self
identifying itself as perl, as opposed to *.php
or *.jsp or *.asp, might be an 'issue' for some.

But the real question remains, are you using the
right coding language for the problem in front of you,
or are you trying to work around your coding language.


ciao
drieux

---

And look what I read on Slashdot today:

http://developers.slashdot.org/article.pl?sid=04/01/17/
1435206&mode=thread&tid=100&tid=126&tid=137&tid=145&tid=156

Heck, isn't the Slash code Perl too?

Perl's out there somewhere.

James

I would bet just about every major company uses Perl in one way or
another. The financial company for whose loan software I write uses Perl
all over the place. Just because you don't see it via their web presence
doesn't mean it's not there.

See also

<http://www.theregister.co.uk/content/64/34943.html>

on the same issue.

Yes.

Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.t$&."'!#+sexisexiixesixeseg;y~n~~dddd;eval

From what I have seen and heard this is certainly true. My current
employer (Fortune 500) employs me to hack on an application almost
exclusively in Perl which has no web presence (the app, not the
company). Though the web stuffs at the company are handled in ASP, and
in general are hugely cost ineffective and overdesigned. I think this
is somewhat regional in nature, OSS has a much bigger presence on the
two coasts (of the US) and much less presence in the heartland, this can
also be said about Unix/Linux.

What I would like to see is more embracing of Perl to handle non-web
enabled apps (though most apps these days are getting web enabled), or
at least where the web portion is not the primary function of the app. C
and C++ apps are a huge target where absolute speed is not needed, I
won't even mention the nightmare that are legacy systems JCL this and
COBOL that... Based on postings on jobs.perl.org, Yahoo and Amazon are
two of the big internet guys using Perl, Google does as well, and I know
AOL has a significant POE application running behind the scenes.

Though it is always an interesting question of why must Perl become
bigger? "Is it for His glory, or yours?" (name that movie)....

http://danconia.org

My compliments to your wit!

As most folks know, there are the obligatory
"obfuscatory <yourProgrammingLanguageHere> contests"
that are designed to establish the specific 'unreadablity'
standards for a given language. Perl, like all proper
modern languages, has such a contest.

I remember back in 1991 when the Pythonites were trying
to sell the idea that it was better than Perl4 because
unlike Perl4, it was natively OO-ish, hence cooler by
the HipBuzzDuJure...

A part of the problem with these 'language comparison'
types of problem remains how to differenciate the merely
comical from the simply amusing aspects about why the
advocates advocate using Foo over Bar. If one stumbles
into the 'read ability' giggler, then one should deal
with the 'real issue' of "so why did you accept the
code without the Proper POD and internal comments?"


ciao
drieux

---

Hello.

That sounds simple enough.

Hmm, both are relative and probably don't go together well here. Is
reading 25,001 ids into memory, conscious enough? That would be my
first choice.

(Note: The following code works with lines, not ids, since I don't
know what they are like. It's also untested code.)

#!/usr/bin/perl

use strict;
use warnings;

open A_FILE, '<', 'a_id_file.txt' or die "File error: $!";
my @a_ids;
while (<A_FILE>) {
chomp;
push @a_ids, $_;
}
close A_FILE;

open C_FILE, '>', 'c_id_file.txt' or die "File error: $!";
opendir B_DIR, 'b_directory' or die "Directory error: $!";
while (defined(my $b_file = readdir B_DIR)) {
next if $b_file =~ /^./; # or whatever filtering you need
open B_FILE, '<', $b_file or die "File error: $!";
while (<B_FILE>) {
chomp;
for my $index (0..$#a_ids) {
if ($_ eq $a_ids[$index]) {
print C_FILE "$_n";
splice @a_ids, $index, 1; # remove from a's prevent duplicates
last;
}
}
}
close B_FILE;
}
close C_FILE;

__END__

That's probably not perfect, but hopefully it gets you moving in the
right direction.

If you don't want to stuff the Type-A IDs in memory like that, you may
have to go line by line with the B files, reading all of A to check for
a match, as you originally showed. But don't do that, if you can avoid
it. That could be pretty slow.

James

James,

Thanks for the response but that doesn't seem to work either. Maybe it
would be easier just to create a distribution list on the email server and
just put that address in my script.

It doesn't work, looping over an array does not work?

for(@emaillist) {
# pipe $_ to qmail inject like you do now here
}

You might also want to try a module that doesn't rely on
an external program's argument syntax but does an SMTP session directly.
(don't get em wrong qmail rocks but you should avoid avoid external program when ever possible to make your code more portable, reliabel;, etc etc)
Try Mail::Sender it is very sexxy. You can use a commas separated list of address in one variable as your To field.

HTH

DMuey

It doesn't work, looping over an array does not work?

for(@emaillist) {
# pipe $_ to qmail inject like you do now here
}

You might also want to try a module that doesn't rely on
an external program's argument syntax but does an SMTP session directly.
(don't get em wrong qmail rocks but you should avoid avoid external program
when ever possible to make your code more portable, reliabel;, etc etc)
Try Mail::Sender it is very sexxy. You can use a commas separated list of
address in one variable as your To field.

HTH

DMuey

--
To unsubscribe, e-mail: [Email Removed]
For additional commands, e-mail: [Email Removed]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

That's definitely a way to go.

Other choices: Send us the part of the code that actually sends a
message, so we can work with that and hopefully provide more useful
suggestions.

Or, take a look at the qmail-inject man page to see if you can figure
out the change that needs to be made. You can find that here:

http://www.qmail.org/man/man8/qmail-inject.html

James

Well you could do this the simple way, use a switch that toggles on/off
whether the last line you checked was empty. If the switch is on, and
the current line is empty simply skip it. If the switch is off and the
current line is empty then keep it, toggle the switch and move on.

KISS,

http://danconia.org

perl -i~ -p00e0 file1 file2 ...

perldoc perlrun

--
Paul Johnson - [Email Removed]
http://www.pjcj.net

Well, if slurping is okay (read: file size is reasonable), I would
probably use something like this (untested code):

#!/usr/bin/perl

use strict;
use warnings;

die "Usage: perl script_name OLD_FILE NEW_FILEn" unless @ARGV == 2;

open OLD, '<', shift() or die "File error: $!n";
my $text = join '', <OLD>;
close OLD;

$text =~ s/n(?:s*n)+/n/g;

open NEW, '<', shift() or die "File error: $!n";
print NEW $text;
close NEW;

__END__

Hope that helps.

James

try:

#!/usr/bin/perl -w
use strict;

my $c = pack('C*',map ord,split(//,'a line of text'));

print join('',unpack('a*',$c)),"n";

__END__

prints:

a line of text

i am not sure if that's what you want.

david
--
sub'_{print"@_ ";* = * __ , & }
sub'__{print"@_ ";* = * ___ , & }
sub'___{print"@_ ";* = * ____ , & }
sub'____{print"@_,n"}&{_+Just}(another)->(Perl)->(Hacker)

Wow! I've been over here trying to explain to myself why that works.
Help me out a little.

Broken down those switches are:

-i~ -p -00e0

Right?

No problems with the first two here. The third sets the input record
separator to 0e0, I think. My 'perlrun' said 00 was a special value
used to get "paragraph mode". I'm going to assume 0e0 does the same
thing.

Here's where I'm fuzzy though, does "paragraph mode" only leave one n
at the end of $_? I didn't know that. Is it true even if you set if
the usual way?

local $/ = '';

One last question, does "paragraph mode" consider lines with only
spaces "blank lines" or must it be back-to-back newlines?

Thanks for the lesson!

James

Don't know if they have been mentioned, if not:

perldoc perlretut
perldoc perlre

Note: there is not (.) after 198... is your data sane?

I think I went to Crappy School, good parties... ;-)

There are lots of possiblities. Naturally the dd?d? works, which is
just a digit followed by 2 optional digits, d+ will get any number of
digits in a row but won't be limited to 3. There are also combinations
with braces, such as, d{1,3} which is match at least once but not more
than 3 times (see perlre above).

A word character which includes your digits would be w, you can also
use character classes such as [A-Za-z]. You might want to consider using
a word boundary b. As above there are lots of ways to do it. Note that
one of the names of the schools has a space so this will not be
sufficient. One possible way:

if ($string =~ /^d{1,3}.s([ws]+)s(d+-d+)/) {
print "Matched: $1n";
}

Can't stress enough how important reading the docs is.....

HTH,

http://danconia.org

You could do either:

d+ # one or more digits

d{1,3} # one to three digits

I actually prefer the first. It's simpler, should work just fine with
the period to keep us from grabbing too much, and is even more flexible
since it can handle bigger numbers.

m/
^d+.s+ # a number, followed by a period and some whitespace
([A-Za-z ]+?) # the school name, one or more letters and spaces,
capture
s+( # some whitespace and a paren
[^)]+ # one or more non-paren characters
)s*$ # final paren, optional whitespace, end of line
/x

If you need to capture other parts, just add parens. You really don't
even need the last two lines of the expression, if you only want to
capture the school name.

Good luck.

James

There's your first mistake, moving *from* Redhat *to* IIS :)

Assuming it was using ssh, does the winblows server have ssh servce on it?

Where their any errors at all or just a blank stare?
There could be a zillion things, authentication, connection,
the fact that windows sucks, etc, etc... If there were any errors use them.

What was the Perl question again? You might want to post to an
rsync list, they'll probably be able to help better.

What is the ) doing on line 17?

--
Owen

Please don't reply to me personally, reply to the list.

Try something like this

my $t = Net::Telnet->new(Host=>"hostname",
Timeout=>$secs;
Dump_log=>$dump_log); # assign $dump_log

$t->waitfor('/W9-BAS-01/') || die "bad $1";
$t->print ("$whatever");


Read perdoc Net::Telnet

Read the dumplog, it often contains clues as to what is happening




--
Owen

Well there is the FAQ about case statements:

perldoc -q 'switch or case'

In your case (pun intended) assuming the list is formed as you have it,
then you could do,

foreach my $index (1 .. 100) {
unless ($index % 10) {
# multiple of ten
}
else {
# not a multiple of ten
}
}

If your matches are not quite so nice,

my @list = (1, 15, 23, 67, 89);
foreach my $index (1 .. 100) {
if (grep $index == $_, @list) {
# case matched
}
else {
# non match
}
}

All code untested, HTH,

http://danconia.org

Well, this is a common question. In fact, it's a frequently asked one
with an entry in the perlfaq. This kind of construct is called, in many
languages, a switch. You can see the FAQ's answer by running "perldoc
-q switch" or by looking for the switch/case question in perlfaq7.

Your example was specific, so I can give a specific answer or two:

for (1 .. 100) {
unless ($_ % 10) {
print "divisible by tenn";
}
}

That's about what you said, right? For every number from 1 to 100, do
something at the ten's. Of course, someone more familiar with C (or
with the syntax of 'for') might say:

for (my $i = 1; $i <= 100; $i+=10) {
print "$i is divisible by ten!n";
}

This skips a condition, incrementing $i by ten every time.

See, Perl was designed knowing that there are a whole lot of ways to use
a switch, and a whole lot of ways one might implement it specifically.
So, rather than canonize one, a single "switch" statement is left out.
The best thing to do is figure out how to solve the problem the best
way.

There does exist a module called Switch that will give you a switch/case
statement, but it's not really for production use. It's a neat idea,
but isn't ready for prime time.

Does that answer your question?

--
rjbs

ISO8601 defines a standard, but not everyone follows it. See:

http://www.mcs.vuw.ac.nz/technical/softwar...01/ISO8601.html

Excerpt:

"An ordinal date is identified by a given day in a given year. A week is
identified by its number in a given year. A week begins with a Monday, and
the first week of a year is the one which includes the first Thursday, or
equivalently the one which includes January 4."

Here's January, 2004:

$ cal 1 2004
January 2004
Su Mo Tu We Th Fr Sa
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31

Since weeks start on Monday, the week ending on Sunday, January 4 was week
1.

The DateTime family of modules on CPAN supports this standard.

Thanks Bob. It's always nice to have a document to prod.

Strange though, since

yet the tabulation starts on Sunday.

Rob

No, my boss is not UNIX or even Windows literate. He is a BOSS, not a
GRUNT. He may, from years past, remember some COBOL (remember that?). If I
told him that I was on a Perl list, he would think that I was talking
about the things that come out of oysters.

--
Maranatha!
John McKown

I've done similar thigns using LWP::UserAgent to log in and
submit forms with certain data.
That's where I'd look first.

HTH

DMuey

http://search.cpan.org
Mail::Webmail::Yahoo
WWW::Mechanize

--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http//www.perlmedic.com/

I don't know about John's boss but I'm not even on "the list." I'm reading
this in a newsgroup via GigaNews.


--
www.eSnider.net

}

perhaps calling it "myPerlScript.log". Note - replace "myPerlScript" with
the actual name of your Perl script. Note that when the signal handler
actually executes, the previous myPerlScript.log file has already been
renamed, so the open in the signal handler create a new file with the old
name.


On Thu, 29 Jan 2004, TeamSolCO wrote:

--
Maranatha!
John McKown

Just one, very minor "improvement", of the above might be:

die "Cannot initialize $path_fifl: $!"
unless unlink $path_fifo and mkfifo($path_info,0600);

Granted, this is a nit, but if in a loop which executes a million times,
it could add up. I guess that I've been on "CPU constrained" systems for
so long that every millisecond is now precious <grin>.

--
Maranatha!
John McKown

Yes, it is a little off.

This *isn't* an array, it is an *array reference*

Same with this.

Join takes a list of scalars, not a list of references. So you need to
dereference them. I think this is what you are after.

join(":",@{$member_array[$count]});

Rob


-----Original Message-----
From: Support [mailto:[Email Removed]]
Sent: Sunday, February 01, 2004 2:31 PM
To: [Email Removed]
Subject: Writing to file

Hi all
I have a little bit of code you may be able to help with. I load a file into
an array with

foreach $lines(@database_array) {
@edit_array = split(/:/,$lines);
push(@member_array,[@edit_array]);
$x++;
} #loop

and then play around with the array a bit, then I would like to load it back
into the file with

while($count<$x){
$newline = join(":",$member_array[$count],[@edit_array]);
chomp($newline);
print DAT "$newlinen";
$count++;
}

but I can not retrieve the data into $newline with join. Is this bit wrong

$member_array[$count],[@edit_array])

or am I missing the point completely or is there another way of doing it.
I am currently loading direct from the file working on that line and them
loading back to file, but I can only change one line at a time. Doing it
with as above I can alter the entire array and then load back to file.
Any help is appreciated and please excuse if I'm in the wrong forum.
Cheers
Colin
----------------------------------------------------------------------------
-------------------

www.rentmyplace.co.nz
The ultimate in that holiday spot away from the maddening crowd
Join as a member today its FREE
List your holiday accommodation for FREE
----------------------------------------------------------------------------
--------------------

Okay, but you're not sorting a file there. You're sorting an array.
Maybe that array was loaded from a file, but we're dealing with in
memory arrays now.

You mention below that this is numeric data, so that should be:

@datalist = sort { $a <=> $b } @datalist;

Honestly, I don't know, but I suspect that it wouldn't. I could be
wrong. You could benchmark to find out. Thing is, first you have to
grab the first 6 characters off of all of them, that takes time.
You're also assuming that the default comparison, whatever it is, is
comparing every single character. I would hope it sort circuits as
soon as it has enough information to compare things. If it does, you
might slow it down, instead of speed it up.

More importantly, this is a problem to consider AFTER it becomes slow.
You say it's fast now. Great. Don't touch it. Computers can handle a
lot of information very fast these days and humans who spend time
coding a "faster" solution for something that was already happening in
the blink of an eye are silly.

My worry, just from reading your message, was: Is the dataset too big
to be placed into a single array in memory, as it seems you are doing?

@dataset = sort { substr($a, 0, 6) <=> substr($b, 0, 6) } @dataset;

That's just a basic grab the first 6 numbers and compare approach. For
big data sets though, we can possibly get faster:

@dataset =
map { $$_[1] }
sort { $$a[0] <=> $$b[0] }
map { [ substr($_, 0, 6), $_ ] } @dataset;

That's a little trickier. First, we build a list of all the sub
strings, then we compare, then we restore the original, but now sorted
list. Usually, this is faster, if a sort has complex transformations
needed to compare data and the list is big. However, I'm not sure how
much faster a dereference for those array refs I used is going to be
over a substr() call.

Again, you would have to benchmark to see if we're making any
meaningful gains here, which I'm doubtful of. Perl includes a standard
Benchmark module for this.

I hope that helps.

James