Re: Porting a Script from Linux to Win32

2007-03-22 Thread John W. Krahn
Richard Luckhurst wrote: > Hi Hello, > I am currently porting a script that runs well on a Linux box to a Win2003 box > and am having trouble getting a file move to work. > > To make my life a little easier I have installed the GNU Unix tools onto the > Win > 2003 box so I can use the unix com

Re: hash referrences and such

2007-03-22 Thread Mathew Snyder
Rob Dixon wrote: > It's very unclear what you're trying to do, and what your RT package > does. Let > me make some observations and guesses and you can tell me where I'm > right or > wrong. > > $tix is an iterator that will return a sequence of tickets through the Next > method. > > $ticket is a

Re: Re[2]: Porting a Script from Linux to Win32

2007-03-22 Thread Chas Owens
On 3/23/07, Richard Luckhurst <[EMAIL PROTECTED]> wrote: snip y> Check that the full file path is valid on the Windows system. y> In general, Unix uses / and Windows uses \. Under eg cygwin I think it uses y> /, but check the path works right. I am aware of the path differences and I had tried t

Re[2]: Porting a Script from Linux to Win32

2007-03-22 Thread Richard Luckhurst
Hi yitzle, y> Check that the full file path is valid on the Windows system. y> In general, Unix uses / and Windows uses \. Under eg cygwin I think it uses y> /, but check the path works right. I am aware of the path differences and I had tried the slashes both ways and it makes no difference to

Re: Porting a Script from Linux to Win32

2007-03-22 Thread yitzle
Check that the full file path is valid on the Windows system. In general, Unix uses / and Windows uses \. Under eg cygwin I think it uses /, but check the path works right. On 3/23/07, Richard Luckhurst <[EMAIL PROTECTED]> wrote: Hi I am currently porting a script that runs well on a Linux box

Re: [EMAIL PROTECTED] and [EMAIL PROTECTED]

2007-03-22 Thread Chas Owens
On 3/22/07, Jm lists <[EMAIL PROTECTED]> wrote: Given the case, my @array = (1,2,3,4); my $var1 = [EMAIL PROTECTED]; my $var2 = [EMAIL PROTECTED]; What's the difference between $var1 and $var2? Are they all refered to @array? Thanks guys. $var2 is a reference to @array. $var1 is a reference

Porting a Script from Linux to Win32

2007-03-22 Thread Richard Luckhurst
Hi I am currently porting a script that runs well on a Linux box to a Win2003 box and am having trouble getting a file move to work. To make my life a little easier I have installed the GNU Unix tools onto the Win 2003 box so I can use the unix commands in the command shell. The line I am havin

[EMAIL PROTECTED] and [EMAIL PROTECTED]

2007-03-22 Thread Jm lists
Given the case, my @array = (1,2,3,4); my $var1 = [EMAIL PROTECTED]; my $var2 = [EMAIL PROTECTED]; What's the difference between $var1 and $var2? Are they all refered to @array? Thanks guys. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://l

Re: list of lists

2007-03-22 Thread Vladimir Lemberg
Hello Jeff, Your solution is perfectly working. Thanks a lot! BTW I've solved my as well. I had to put } $y++; } $y = $x; <- Here $x++; } I agree my code looks ugly -) Thanks, Vladimir - Original Message - From: "Jeff Pang" <[EMAIL PROTECTED]> To: "Vladimir Lemberg" <[EMAIL PROTE

Re: cannot determine peer address with Unix domain sockets

2007-03-22 Thread Jeff Pang
> >Is $Select a global variable? Is that why it's got a capital letter? I >suspect that you're not coding under the rules of 'use strict'. I'm >not sure whether that indicates a problem with your program, but it >bears further investigation. > >Cheers! > >--Tom Phoenix >Stonehenge Perl Training >

Re: perldoc -q "How can I make my Perl program run faster?"

2007-03-22 Thread Chas Owens
On 3/22/07, oryann9 <[EMAIL PROTECTED]> wrote: snip So in general in a web environment with 8-12gb RAM, mod_Perl and a MySQL/Postgres backend, do you or people you know statically link libc.a? For mod_perl performance related questions I would suggest asking on the mod_perl list ([EMAIL PROTECT

Re: cannot determine peer address with Unix domain sockets

2007-03-22 Thread Tom Phoenix
On 3/22/07, Andy Greenwood <[EMAIL PROTECTED]> wrote: $Select = new IO::Select(); Is $Select a global variable? Is that why it's got a capital letter? I suspect that you're not coding under the rules of 'use strict'. I'm not sure whether that indicates a problem with your program, but

Re: list of lists

2007-03-22 Thread Jeff Pang
Hello, I don't think the $x and $y are needed here since you're using Perl which is flexible enough for creating dynamic array for you. Here is my improvment version of your codes. my @table; foreach my $category (sort keys %categories){ my @tmp = ($category); foreach my $zone (sort keys

Re: Eval not working on code

2007-03-22 Thread Tom Phoenix
On 3/22/07, Kevin Old <[EMAIL PROTECTED]> wrote: Not sure why eval isn't working. Nothing is returned if I print $@ after the eval statement. What do you mean whan you say eval "isn't working"? What is it doing? Does it run any of the code? The code you included doesn't print or check $@ afte

Re: list of lists

2007-03-22 Thread John W. Krahn
Vladimir Lemberg wrote: > Hello Jeff, > > Thanks for help! > > I was trying to popolate LOL by adding each element on fly. Here my code: > > use strict; > use warnings; > use Win32; > use Cwd; > > my @table; > my $x = 0; > my $y = 0; > > foreach my $category (sort keys %categories){ > $table[

Re: perl -e equivalent of short script...

2007-03-22 Thread Chas Owens
On 3/22/07, Alan Campbell <[EMAIL PROTECTED]> wrote: >> sounds like advice is to not bother w/ perl -e. Seems a pity. Looked like a perfect job for perl -e but perhaps its pushing it a bit. I think the advice is not so much not to use perl -e, but rather that you should be using Perl for the w

Re: perl -e equivalent of short script...

2007-03-22 Thread Tom Phoenix
On 3/22/07, Alan Campbell <[EMAIL PROTECTED]> wrote: >> true, but I'm tweaking the orig array in-place. So how to modify a given element if I dont have some index? With foreach, you don't need an index. The control variable of a foreach isn't a copy of the array element; it *is* the element of

Re: list of lists

2007-03-22 Thread John W. Krahn
Vladimir Lemberg wrote: > Creating list of lists. perldoc -q "What is the difference between a list and an array" > Hi All, Hello, > Could you help me to come up with idea how to generate list of lists on fly > as follows: > > @LoL = ( > [ "state", "value", "value" ], > [ "state", "va

Re: list of lists

2007-03-22 Thread Vladimir Lemberg
Hello Jeff, Thanks for help! I was trying to popolate LOL by adding each element on fly. Here my code: use strict; use warnings; use Win32; use Cwd; my @table; my $x = 0; my $y = 0; foreach my $category (sort keys %categories){ $table[$x][$y] = [ $category ]; $y ++; foreach my $zone (sort

Re: File::Find

2007-03-22 Thread Jeff Pang
> >I'm trying to write a script that will append a few chars (example _fr) to >the end of the "prefix" filename. All the filenames I need to change end with >.properties. I need to have this script descend into all subdirs of the dir >specified at the command line. > Hello, Hope codes below can

Re: list of lists

2007-03-22 Thread Jeff Pang
> > >@LoL = ( ["state", "value", "value"], ["state", "value", >"value"], ["state", "value", "value"],); > >State should be taken from hash %states where the state is a key. > >Value should be taken from function. > Hello, It's just my guess,I think the state

list of lists

2007-03-22 Thread Vladimir Lemberg
Creating list of lists. Hi All, Could you help me to come up with idea how to generate list of lists on fly as follows: @LoL = ( ["state", "value", "value"], ["state", "value", "value"], ["state", "value", "value"],); State should be taken from hash

Re: perldoc -q "How can I make my Perl program run faster?"

2007-03-22 Thread oryann9
> This really isn't a Perl question, though. If you > have questions about > dynamic vs. static linking, and why you might want > to do one or the > other, you should probably pick up a good book on C > and/or the C > compiler on your system. > > HTH, > > -- jay thank you for responding, howev

Re: perl -e equivalent of short script...

2007-03-22 Thread Alan Campbell
hello, Good questions. > I'm trying to use cmd line perl -e to do some fairly basic sed-style > find/replace. Why don't you just use sed for that, if you're not doing the main program in Perl? Maybe I'm misunderstanding you, but it sounds like you're saying that you're writing shell scripts in

Re: perldoc -q "How can I make my Perl program run faster?"

2007-03-22 Thread Jay Savage
On 3/22/07, oryann9 <[EMAIL PROTECTED]> wrote: --- Chas Owens <[EMAIL PROTECTED]> wrote: > On 3/22/07, oryann9 <[EMAIL PROTECTED]> wrote: > snip > > Am I linked to libc.a? > snip > >libc=/usr/lib/libc.a, so=dll, useshrplib=true, > libperl=libperl.a > snip > > It looks like it. My perl says

Re: File::Find

2007-03-22 Thread John W. Krahn
Matt Herzog wrote: > Hey all. Hello, > I'm trying to write a script that will append a few chars (example _fr) to > the end of the "prefix" filename. All the filenames I need to change end with > .properties. I need to have this script descend into all subdirs of the dir > specified at the comman

Eval not working on code

2007-03-22 Thread Kevin Old
Hello everyone, I am using Class::InsideOut and am looping through some params passed and need to set their accessors (identified by the keys passed into my class), but the following code isn't working. Not sure why eval isn't working. Nothing is returned if I print $@ after the eval statement.

File::Find

2007-03-22 Thread Matt Herzog
Hey all. I'm trying to write a script that will append a few chars (example _fr) to the end of the "prefix" filename. All the filenames I need to change end with .properties. I need to have this script descend into all subdirs of the dir specified at the command line. I can't seem to understand h

Re: perldoc -q "How can I make my Perl program run faster?"

2007-03-22 Thread oryann9
--- Chas Owens <[EMAIL PROTECTED]> wrote: > On 3/22/07, oryann9 <[EMAIL PROTECTED]> wrote: > snip > > Am I linked to libc.a? > snip > >libc=/usr/lib/libc.a, so=dll, useshrplib=true, > libperl=libperl.a > snip > > It looks like it. My perl says > libc=/lib/libc-2.4.so, so=so, useshrplib=t

Re: cannot determine peer address with Unix domain sockets

2007-03-22 Thread Andy Greenwood
On 3/22/07, Tom Phoenix <[EMAIL PROTECTED]> wrote: On 3/22/07, Andy Greenwood <[EMAIL PROTECTED]> wrote: > I am getting the following error whenever I try to send data to a unix > domain socket. PHP sends the command just fine, but perl dies as soon > as it reads from the socket. Are you using

Re: perldoc -q "How can I make my Perl program run faster?"

2007-03-22 Thread Chas Owens
On 3/22/07, oryann9 <[EMAIL PROTECTED]> wrote: snip Am I linked to libc.a? snip libc=/usr/lib/libc.a, so=dll, useshrplib=true, libperl=libperl.a snip It looks like it. My perl says libc=/lib/libc-2.4.so, so=so, useshrplib=true, libperl=libperl.so.5.8.8 it looks like you are using Acti

perldoc -q "How can I make my Perl program run faster?"

2007-03-22 Thread oryann9
On this FAQ I read: If you're currently linking your perl executable to a shared libc.so, you can often gain a 10-25% performance benefit by rebuilding it to link with a static libc.a instead. This will make a bigger perl exe-cutable, but your Perl programs (and programmers) may thank you for it.

Re: cannot determine peer address with Unix domain sockets

2007-03-22 Thread Tom Phoenix
On 3/22/07, Andy Greenwood <[EMAIL PROTECTED]> wrote: I am getting the following error whenever I try to send data to a unix domain socket. PHP sends the command just fine, but perl dies as soon as it reads from the socket. Are you using PHP, or Perl? Both? send: Cannot determine peer addres

cannot determine peer address with Unix domain sockets

2007-03-22 Thread Andy Greenwood
I am getting the following error whenever I try to send data to a unix domain socket. PHP sends the command just fine, but perl dies as soon as it reads from the socket. send: Cannot determine peer address at myscript.pl line 1256 I found the following page which discusses a fix for this on Open

Re: how to redirect warnings to a file

2007-03-22 Thread Mumia W.
On 03/22/2007 03:16 AM, lakshmi priya wrote: Hi, How do I redirect the warning messages from my perl script to a different file? By default they are all getting printed on the terminal. In addition to Jeff Pang's suggestion, read "perldoc -f open". You can redirect STDERR to a file:

RE: Some basic perl queries

2007-03-22 Thread Jeff Pang
>Didn't go for that option, because I am running the scripts from >crontab. So environment vars may not work ( actually havent tried that, >but I m kinda sure they wont!) > Just try, 0 * * * * (export PERL5LIB=/your/lib/path; perl xxx.pl) The perl script must be run on the same shell of the ex

RE: Some basic perl queries

2007-03-22 Thread Jeff Pang
> >Thanks for the people who responded to original query. >Another related query. >Whats the best way to specify common set of include library directories, >so that I don't end up including (use lib OR "-I") in each file using my >local modules. (recursive include!) > Then how about modifying @IN

RE: Some basic perl queries

2007-03-22 Thread Beginner
On 22 Mar 2007 at 8:59, Kumar, Akshay wrote: > Thanks for the people who responded to original query. > Another related query. > Whats the best way to specify common set of include library directories, > so that I don't end up including (use lib OR "-I") in each file using my > local modules. (rec

RE: Some basic perl queries

2007-03-22 Thread Kumar, Akshay
Thanks for the people who responded to original query. Another related query. Whats the best way to specify common set of include library directories, so that I don't end up including (use lib OR "-I") in each file using my local modules. (recursive include!) >

Re: Some basic perl queries

2007-03-22 Thread Jeff Pang
>I am playing around with a set of perl scripts. Need to figure out >following things. >A) move out common code from the set of scripts and have them include >that common code. (something equivalent of #include!) . Most of the >common code is about some arguments (proxy-url, database, user, pass >

RE: STDOUT

2007-03-22 Thread Jenda Krynicky
From: hOURS <[EMAIL PROTECTED]> > If you are on windows, then see perlfaq8 if ActiveState perl for > how to redirect STDOUT and STDERR when doing backticks. Believe where > you want to be at. > > Wags ;) > David R Wagner > > > David, are you saying this is definitely a Windows issue? I didn

Some basic perl queries

2007-03-22 Thread Kumar, Akshay
Hi All, I am playing around with a set of perl scripts. Need to figure out following things. A) move out common code from the set of scripts and have them include that common code. (something equivalent of #include!) . Most of the common code is about some arguments (proxy-url, database, user, pass

Re: escape character

2007-03-22 Thread Beginner
On 21 Mar 2007 at 20:05, Dr.Ruud wrote: > "Beginner" schreef: > > > The Iconv route hasn't been too successful either. I tried > > Text::Iconv->new('ISO8859-1','utf8'); > > Thinking that my data is currently ISO8859-1but the results were not > > as I had hoped. Where I had MICROSCÓPIO, I got MIC

RE: how to redirect warnings to a file

2007-03-22 Thread Jeff Pang
> >Or print STDERR "error message" in your program. > This is not good because warning info are most likely generated by Perl parser not your programs. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: how to redirect warnings to a file

2007-03-22 Thread Jeff Pang
> >Hi, > How do I redirect the warning messages from my perl script to a >different file? By default they are all getting printed on the terminal. Hello, You can redirect all 'die' or 'warn' messages to files via re-defining the SIGDIE and SIGWARN handler. Like: $SIG{__DIE__} = \&log_di

RE: how to redirect warnings to a file

2007-03-22 Thread Andrew Curry
./script.pl 2> err in unix. Or print STDERR "error message" in your program. -Original Message- From: lakshmi priya [mailto:[EMAIL PROTECTED] Sent: 22 March 2007 08:16 To: beginners@perl.org Subject: how to redirect warnings to a file Hi, How do I redirect the warning messages f

how to redirect warnings to a file

2007-03-22 Thread lakshmi priya
Hi, How do I redirect the warning messages from my perl script to a different file? By default they are all getting printed on the terminal.