[29647] in Perl-Users-Digest
Perl-Users Digest, Issue: 891 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Sep 29 14:09:46 2007
Date: Sat, 29 Sep 2007 11:09:04 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 29 Sep 2007 Volume: 11 Number: 891
Today's topics:
Re: [NEWBIE] Trivial? <paduille.4061.mumia.w+nospam@earthlink.net>
Re: creating something M$ Excel can read? <m@rtij.nl.invlalid>
Re: looping questions <joe@inwap.com>
Perl/unix script to convert a fixed width file to a tab <srikantics@gmail.com>
Re: Perl/unix script to convert a fixed width file to a (Greg Bacon)
Re: Perl/unix script to convert a fixed width file to a <damercer@comcast.net>
Re: Perl/unix script to convert a fixed width file to a <see.sig@rochester.rr.com>
Re: SOAP timing out <raherh@gmail.com>
Re: SOAP timing out <perl4hire@softouch.on.ca>
Re: SOAP timing out <perl4hire@softouch.on.ca>
Re: SOAP timing out <raherh@gmail.com>
Re: SOAP timing out <perl4hire@softouch.on.ca>
Re: string concatentation vs. interpolation: which one <joe@inwap.com>
Re: string concatentation vs. interpolation: which one <rihad@mail.ru>
Re: string concatentation vs. interpolation: which one <rihad@mail.ru>
Re: string concatentation vs. interpolation: which one <hjp-usenet2@hjp.at>
the camel perl book <zaxfuuq@invalid.net>
Re: the camel perl book <spamtrap@dot-app.org>
Re: The Modernization of Emacs: terminology buffer and <frgo@goenninger.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 29 Sep 2007 01:20:16 -0500
From: "Mumia W." <paduille.4061.mumia.w+nospam@earthlink.net>
Subject: Re: [NEWBIE] Trivial?
Message-Id: <13fs1lo36qlg0a1@corp.supernews.com>
On 09/29/2007 12:39 AM, El Bandolero wrote:
> I'm solving an exercise studying on a tutorial
>
> The task is to print the (empty or not) lines of a file numbering only the
> non empty ones.
>
> How the h### is possible that the following code gives the same result if I
> change line 9 with the opposite condition?
> if (!$lines[$i]=="")
>
> 1 #!/usr/bin/perl
> 2 #
Put this line near the top of your program:
use warnings;
> 3 $file = 'C:\Perl\html\Artistic.txt';
> 4 open(PIP, $file);
> 5 @lines = <PIP>;
> 6 close(PIP);
> 7 for ($i=0;$i <= @lines;++$i)
> 8 {
> 9 if ($lines[$i]=="")
> 10 {print $i." ".$lines[$i]};
> 11 }
>
>
The two problems with your program are (1) string comparisons are done
with 'eq' not '==' and (2) un-chomped blank lines have a single \n
character in them.
This comparison should work better:
if ($lines[$i] ne "\n")
That line alone won't complete the execise. Depending upon the exercise
requirements, you may also need another counter ($j). I'll let you
figure out if that's the case.
------------------------------
Date: Sat, 29 Sep 2007 15:46:12 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: creating something M$ Excel can read?
Message-Id: <pan.2007.09.29.13.46.22@rtij.nl.invlalid>
On Sat, 29 Sep 2007 05:08:09 +0200, Petr Vileta wrote:
> Mark Hobley wrote:
>> Mike <mikee@mikee.ath.cx> wrote:
>>> Is there some way to generate a file on linux that contains formulas,
>>> formatting, etc, that can be read by Excel?
>>
>> Microsoft Excel can read comma separated lists (.csv files). I would
>> create a test file, and try importing it into Excel.
>>
> And you can use a little trick. Because Excel is stupid (or
> inteiligent?) you can create standard CSV file but name it as *.XLS :-)
> Really! Try it ;-)
Works with anything Excel groks. I use html!
However, this does not allow entering formulas, which was requested.
HTH,
M4
------------------------------
Date: Sat, 29 Sep 2007 04:07:11 -0700
From: Joe Smith <joe@inwap.com>
Subject: Re: looping questions
Message-Id: <mL-dnVNf4q1_rGPbnZ2dnUVZ_gudnZ2d@comcast.com>
lerameur wrote:
> Hello,
>
> this is not a perl problem (maybe it is). The function does work, but
> gave me error . there are 4 files into the traffic directory, the loop
> goes into 24 possiblility, copies the four files and gives me 20
> errors. I decided to add an IF statement to only copy if the file
> exists. what is wrong with my IF loop ?
You're not using glob() in the right context, and you've
got `...` where you should be using "...".
> for my $hours ('00'..'23') {
>
> $file23 = glob("$timestamp2$hours*") ;
> print "$timestamp2: " ,$timestamp2, "\n";
> print "file23: " ,$file23, "\n";
> if ($file23 == 1){
> system(`cp /input/fttr/traffic/$file23 /input/$Out_directory `);
> }
>
> $hours++;
> }
for my $hours ('00' .. '23') {
my @files = glob "$timestamp2$hours*";
print "Found ",scalar(@files)," matching file(s) for $hours\n";
if (@files) {
my $cmd = "cp -p /input/fttr/traffic/$timestamp2$hours* /input/$Out_directory";
print "$cmd\n";
system $cmd == 0 or warn "Failed: $? $!";
}
}
-Joe
------------------------------
Date: Sat, 29 Sep 2007 06:35:50 -0700
From: Srikant <srikantics@gmail.com>
Subject: Perl/unix script to convert a fixed width file to a tab delimited file
Message-Id: <1191072950.845896.75120@y42g2000hsy.googlegroups.com>
Hi all,
I have a situtation here. We have a script that reads two
delimited (comma or tab or pipe or semicolon or any other) files and
compares them returnig the list of records/rows unique to file1,
unique to file2 and the mismatches records.
Now, we also have to get this going for fixed width files. I
know that the inbuilt excel tool, Text to columns, does this. However
we need to get this process automated on the unix box.
Any suggestions? If someone can help me with the scipt itself,
that'll be awesome.
Thanks a lot.
Regards
Srikant
------------------------------
Date: Sat, 29 Sep 2007 14:32:41 -0000
From: gbacon@hiwaay.net (Greg Bacon)
Subject: Re: Perl/unix script to convert a fixed width file to a tab delimited file
Message-Id: <13fsog9ei54bt1a@corp.supernews.com>
In article <1191072950.845896.75120@y42g2000hsy.googlegroups.com>,
Srikant <srikantics@gmail.com> wrote:
: I have a situtation here. We have a script that reads two
: delimited (comma or tab or pipe or semicolon or any other) files and
: compares them returnig the list of records/rows unique to file1,
: unique to file2 and the mismatches records.
: Now, we also have to get this going for fixed width files. I
: know that the inbuilt excel tool, Text to columns, does this. However
: we need to get this process automated on the unix box.
Something like the following?
$ cat try
#! /usr/bin/perl
use warnings;
use strict;
while (<DATA>) {
chomp;
my @f = unpack "A5A5A5", $_;
print join("," => @f), "\n";
}
__DATA__
R1 Five5Hello
Row2 ThreeBye
$ ./try
R1,Five5,Hello
Row2,Three,Bye
See also `perldoc -q fixed`.
Hope this helps,
Greg
--
Human ingenuity, not government, solves the problem of scarcity. The
nations in which poverty is greatest are those that restrain human
ingenuity -- that is, freedom -- and punish initiative.
-- Wendy McElroy
------------------------------
Date: Sat, 29 Sep 2007 10:26:18 -0500
From: "Dan Mercer" <damercer@comcast.net>
Subject: Re: Perl/unix script to convert a fixed width file to a tab delimited file
Message-Id: <7_adnXfjjeIG82PbnZ2dnUVZ_j2dnZ2d@comcast.com>
"Srikant" <srikantics@gmail.com> wrote in message news:1191072950.845896.75120@y42g2000hsy.googlegroups.com...
: Hi all,
: I have a situtation here. We have a script that reads two
: delimited (comma or tab or pipe or semicolon or any other) files and
: compares them returnig the list of records/rows unique to file1,
: unique to file2 and the mismatches records.
: Now, we also have to get this going for fixed width files. I
: know that the inbuilt excel tool, Text to columns, does this. However
: we need to get this process automated on the unix box.
If the files are sorted you can just use the comm utility. Else,
perldoc -f pack and perldoc -f unpack for the unpack utility.
It's a trivial one liner to convert a file from fixed width to
csv.
Dan Mercer
: Any suggestions? If someone can help me with the scipt itself,
: that'll be awesome.
:
:
: Thanks a lot.
:
: Regards
: Srikant
:
------------------------------
Date: Sat, 29 Sep 2007 10:59:58 -0400
From: Bob Walton <see.sig@rochester.rr.com>
Subject: Re: Perl/unix script to convert a fixed width file to a tab delimited file
Message-Id: <46fe6806$0$15396$4c368faf@roadrunner.com>
Srikant wrote:
...
> I have a situtation here. We have a script that reads two
> delimited (comma or tab or pipe or semicolon or any other) files and
> compares them returnig the list of records/rows unique to file1,
> unique to file2 and the mismatches records.
> Now, we also have to get this going for fixed width files. I
> know that the inbuilt excel tool, Text to columns, does this. However
> we need to get this process automated on the unix box.
> Any suggestions?
Get the book "Learning Perl" and read it.
If someone can help me with the scipt itself,
> that'll be awesome.
...
> Srikant
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Sat, 29 Sep 2007 09:40:14 +0000
From: rahed <raherh@gmail.com>
Subject: Re: SOAP timing out
Message-Id: <uwsu9hksh.fsf@gmail.com>
Amer Neely <perl4hire@softouch.on.ca> writes:
> Ummm. I'm sorry but can you provide a little more detail for that? I'm
> new to SOAP and .NET, so I need a little more to work with.
First try not to use on_action method. Default is set to uri#method and
it works when calling Perl service from Perl client.
Anyway it should return some fault report. If not, it's an http issue.
--
Radek
------------------------------
Date: Sat, 29 Sep 2007 06:59:41 -0400
From: Amer Neely <perl4hire@softouch.on.ca>
Subject: Re: SOAP timing out
Message-Id: <cdqLi.634$xa2.618@read2.cgocable.net>
rahed wrote:
> Amer Neely <perl4hire@softouch.on.ca> writes:
>
>> Ummm. I'm sorry but can you provide a little more detail for that? I'm
>> new to SOAP and .NET, so I need a little more to work with.
>
> First try not to use on_action method. Default is set to uri#method and
> it works when calling Perl service from Perl client.
>
> Anyway it should return some fault report. If not, it's an http issue.
>
I am trying a modification to my script based on the example at
http://users.skynet.be/pascalbotte/rcx-ws-doc/perldotnet.htm
This return in the error log looks worrisome:
SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0x1f8f14c)
^^^^^^^^^^^^^^^
I am getting the fault report:
Server was unable to process request. ---> Object reference not set to
an instance of an object
The script times out with a '500 Internal Server Error'.
Does this help in debugging?
--
Amer Neely
w: www.webmechanic.softouch.on.ca/
Perl | MySQL programming for all data entry forms.
"Others make web sites. We make web sites work!"
------------------------------
Date: Sat, 29 Sep 2007 07:05:35 -0400
From: Amer Neely <perl4hire@softouch.on.ca>
Subject: Re: SOAP timing out
Message-Id: <JiqLi.618$9F1.415@read1.cgocable.net>
rahed wrote:
> Amer Neely <perl4hire@softouch.on.ca> writes:
>
>> Ummm. I'm sorry but can you provide a little more detail for that? I'm
>> new to SOAP and .NET, so I need a little more to work with.
>
> First try not to use on_action method. Default is set to uri#method and
> it works when calling Perl service from Perl client.
>
> Anyway it should return some fault report. If not, it's an http issue.
>
I am trying a modification to my script based on the example at
http://users.skynet.be/pascalbotte/rcx-ws-doc/perldotnet.htm
I don't get a fault report, but this entry in the log file worries me:
SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0x89533f4)
SOAP::Transport::HTTP::Client::send_receive: 500 (Internal Server Error)
Can't connect to xxx.xxx.xxx.xxx:180 (connect: timeout)
The script still times out with a '500 Internal Server Error'.
Does this help in debugging?
--
Amer Neely
w: www.webmechanic.softouch.on.ca/
Perl | MySQL programming for all data entry forms.
"Others make web sites. We make web sites work!"
------------------------------
Date: Sat, 29 Sep 2007 11:42:51 +0000
From: rahed <raherh@gmail.com>
Subject: Re: SOAP timing out
Message-Id: <uhcldhf44.fsf@gmail.com>
Amer Neely <perl4hire@softouch.on.ca> writes:
> I don't get a fault report, but this entry in the log file worries me:
> SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0x89533f4)
> SOAP::Transport::HTTP::Client::send_receive: 500 (Internal Server
> Error) Can't connect to xxx.xxx.xxx.xxx:180 (connect: timeout)
Application doesn't respond, you want to look at server faultstring
what's wrong.
--
Radek
------------------------------
Date: Sat, 29 Sep 2007 12:35:27 -0400
From: Amer Neely <perl4hire@softouch.on.ca>
Subject: Re: SOAP timing out
Message-Id: <_7vLi.733$9F1.225@read1.cgocable.net>
rahed wrote:
> Amer Neely <perl4hire@softouch.on.ca> writes:
>
>> I don't get a fault report, but this entry in the log file worries me:
>> SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0x89533f4)
>> SOAP::Transport::HTTP::Client::send_receive: 500 (Internal Server
>> Error) Can't connect to xxx.xxx.xxx.xxx:180 (connect: timeout)
>
> Application doesn't respond, you want to look at server faultstring
> what's wrong.
>
<?xml version="1.0" encoding="utf-8"?><soap:Envelope
xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"><soap:Body><soap:Fault><faultcode>soap:Server</faultcode><faultstring>Server
was unable to process request. ---> Object reference not set to an
instance of an object.</faultstring><detail
/></soap:Fault></soap:Body></soap:Envelope>
--
Amer Neely
w: www.webmechanic.softouch.on.ca/
Perl | MySQL programming for all data entry forms.
"Others make web sites. We make web sites work!"
------------------------------
Date: Sat, 29 Sep 2007 04:27:29 -0700
From: Joe Smith <joe@inwap.com>
Subject: Re: string concatentation vs. interpolation: which one is more optimal?
Message-Id: <qpOdnanNeIY-q2PbnZ2dnUVZ_j-dnZ2d@comcast.com>
rihad wrote:
> I couldn't agree more. I'm only micro-optimizing obvious usage
> patterns such as string interpolation/concatenation vs. list (such as
> print "$foo $bar"; vs. print $foo, ' ', $bar;) which is *always*
> faster by its nature.
Let me see if I understand correctly. The one that should be used is
print $foo, ' ', $bar;
since printing a list is faster than building a string and printing that.
I don't understand why in your original posting you referred to
"the list variant separated by commas" as being suboptimal.
-Joe
------------------------------
Date: Sat, 29 Sep 2007 04:39:16 -0700
From: rihad <rihad@mail.ru>
Subject: Re: string concatentation vs. interpolation: which one is more optimal?
Message-Id: <1191065956.854983.320610@22g2000hsm.googlegroups.com>
On Sep 29, 4:27 pm, Joe Smith <j...@inwap.com> wrote:
> Let me see if I understand correctly. The one that should be used is
>
> print $foo, ' ', $bar;
>
> since printing a list is faster than building a string and printing that.
>
> I don't understand why in your original posting you referred to
> "the list variant separated by commas" as being suboptimal.
>
Damn ;-) I hoped no one would notice. It's the other way around. Read
it as I mean it (c)
------------------------------
Date: Sat, 29 Sep 2007 08:17:34 -0700
From: rihad <rihad@mail.ru>
Subject: Re: string concatentation vs. interpolation: which one is more optimal?
Message-Id: <1191079054.161943.256390@k79g2000hse.googlegroups.com>
On Sep 29, 7:04 pm, "Peter J. Holzer" <hjp-usen...@hjp.at> wrote:
> the time difference between
>
> perl -e '$a=$b=303; print "$a $b" for 1..39999999' > /dev/null
>
> and
>
> perl -e '$a=$b=303; print $a." ".$b for 1..39999999' > /dev/null
>
> is real on some machines (it is very noticable on my Core2 in 32 bit
> mode (19.3 vs. 15.5 seconds) less noticable on a Core2 in 64 bit mode or
> a P4, and unmeasurable on a PIII - perl 5.8.8 in all cases), so the code
> can't be the same. Either the output of perl -MO=Concise is wrong or at
Try running each test several times and comparing the average times. I
can't see any difference beyond +/- 1% error, can you? Then again, my
Athlon XP might be the "unmeasurable" one.
------------------------------
Date: Sat, 29 Sep 2007 16:04:32 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: string concatentation vs. interpolation: which one is more optimal?
Message-Id: <slrnffsmrg.d8c.hjp-usenet2@zeno.hjp.at>
On 2007-09-26 21:27, Ben Morrow <ben@morrow.me.uk> wrote:
> Quoth Michele Dondi <bik.mido@tiscalinet.it>:
>> >Can someone experienced in Perl source code confirm that they are
>> >identical in terms of raw speed and memory use or not? The second one
>> >is much cooler, and if so, I'm going to get rid of concatenation
>> >altogether. (I'm not even considering the list variant separated by
>> >commas, which is suboptimal).
>>
>> Do you *really* care?!? I agree that sometimes it *is* worth to look
>> at optimizations, but if you have performance problems, then the
>> printing of a short thing is highly likely *not* to be the cause of
>> them, and if it is, then you'd better switch to a faster language
>> altogether.
>
> While I couldn't agree more, in the interests of answering the question
> asked:
[...]
> The ex-foo ops are those that have been optimized away, so they compile
> to exactly the same optree, so have exactly the same performance. Any
> differences found elsewhere in the thread are errors in benchmarking.
the time difference between
perl -e '$a=$b=303; print "$a $b" for 1..39999999' > /dev/null
and
perl -e '$a=$b=303; print $a." ".$b for 1..39999999' > /dev/null
is real on some machines (it is very noticable on my Core2 in 32 bit
mode (19.3 vs. 15.5 seconds) less noticable on a Core2 in 64 bit mode or
a P4, and unmeasurable on a PIII - perl 5.8.8 in all cases), so the code
can't be the same. Either the output of perl -MO=Concise is wrong or at
least incomplete or you are interpreting it wrong (how does it know that
there are instructions which were optimized away? Are the instructions
perhaps still there with a "don't execute" flag? Or does it produce its
output at an earlier stage of compilation?). One aspect which is
obviously missing from the output are the adresses of the instructions.
Alignment can have a large impact on performance.
hp
--
_ | Peter J. Holzer | I know I'd be respectful of a pirate
|_|_) | Sysadmin WSR | with an emu on his shoulder.
| | | hjp@hjp.at |
__/ | http://www.hjp.at/ | -- Sam in "Freefall"
------------------------------
Date: Sat, 29 Sep 2007 02:21:23 -0700
From: "Wade Ward" <zaxfuuq@invalid.net>
Subject: the camel perl book
Message-Id: <sc2dncoreJGVlmPbnZ2dnUVZ_gqdnZ2d@comcast.com>
I have questions from the
the camel perl book.
http://www.zaxfuuq.net/beatdowninabq1.htm
--
wade ward
"The final irony is that cops
and rodney king have the same IQ."
------------------------------
Date: Sat, 29 Sep 2007 13:46:59 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: the camel perl book
Message-Id: <m2r6kh1i0c.fsf@dot-app.org>
"Wade Ward" <zaxfuuq@invalid.net> writes:
> I have questions from the
> the camel perl book.
And your questions are...?
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Sat, 29 Sep 2007 12:54:32 +0200
From: Frank Goenninger <frgo@goenninger.net>
Subject: Re: The Modernization of Emacs: terminology buffer and keybinding
Message-Id: <fdlat6$c5f$03$1@news.t-online.com>
On 2007-09-29 01:27:04 +0200, Damien Kick <dkixk@earthlink.net> said:
> Giorgos Keramidas wrote:
>> On Fri, 22 Jun 2007 23:08:02 -0000, nebulous99@gmail.com wrote:
>>> So much for the "free" in "free software". If you can't actually use
>>> it without paying money, whether for the software or for some book, it
>>> isn't really free, is it?
>>
>> Please do not confuse the term 'free' in 'free software' with 'gratis'.
>>
>> 'Gratis', i.e. 'lacking a monetary price tag' is something *very*
>> different from the meaning of 'free' in 'free software'.
>
> If you were referring to the "free" in "free Mumia Abu Jamal", I would
> agree with you. I don't think anyone would imagine that this phrase
> meant that someone was going to get Mumia Abu Jamal gratis. Like it or
> not, "free software" referring to "free as in beer" is probably the
> most common interpretation of the phrase for a native English speaker.
> Admittedly, I do not have a "scientific" survey handy. However, I just
> asked my wife--who has absolutely no interest in anything related to
> programming, has never heard of the FSF, Eric Raymond, nor the
> disagreement between those two camps, nor probably will she ever have
> an interest--what she thinks I mean when I say "free software". After
> getting over the "why are you asking such a stupid question" phase, the
> first thing that jumped to her mind was "free as in beer". You can
> stamp, growl, swagger, spit, curse, and bluster all you want on this
> point, but millions of English speakers are going to ignore you anyway.
> Lucky for most of them, they do not have to suffer the lectures of
> sociopolitically motivated language mavens trying to "correct" them
> from the error of mistaking the meaning of a phrase to be the normal
> meaning of that phrase.
Fully true for non-native English speakers as well. Just did the "wife
test" also - she is a pure software user - and yes, free is "no money,
do what you want" and that's it.
I *never* use the term "free" if I don't want to imply "free beer"
(which is a Good Thing and as such highly valuated - ask any Bavarian).
Using "free" as by FSF or any other lawyer-style 6 pixel font printed
phrasing is pure perfidiousness.
Frank
--
Frank Goenninger
frgo(at)goenninger(dot)net
"Don't ask me! I haven't been reading comp.lang.lisp long enough to
really know ..."
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 891
**************************************
