XML & Perl

Hi, I need to work in PERL for a project. I am a DELPHI Programmer. Any suggestions of the best XML parser to use for a real time environment. The messages will not exceed 1 Meg and will mostly be arround 150K. Many thanks for your input. Andy Sewell -- To unsubscribe, e-mail: [EMAIL

[Fwd: Condolences to US readers]

We in South Africa are praying for the people involved in this terrible affair. Best regards Andy Sewell EXKom South Africa I'm very sad of what happened. I'm not able to describe my sadness. I think I'm not far from the truth when I write that all the french people is with

File Manipulation ??

Hiya Guys Well I am new, and still trying to learn perl...while at work on 10 different thingssheesh is there ever enough time to learn something.. Needless to say I need to accomplish the following. Data Below 155073040~06/04/1998 155073040~04/28/1998 155073040~04/29/1998 255256040~04/29/

Debug Help Please

Greets I wrote this script to parse information from some log files. It Seems to work , or look like it works. In the end I get the log creation of .csv log files with no information. I am learning how to write this , I know there are tons of ways to do this. But My Boss made a decision to keep a

Re: Debug Help Please

Well Disregard the above script I made changes that I think were needed, but I still have no output in the .csv files #!/usr/bin/perl #use strict; #use warnings; #Define LogFiles my $dateroot="$ARGV[0]"; # Value should be 2-digit month my $outgoing="outgoing_xferlog.$dateroot.csv"; # This

Re: Debug Help Please

On Jul 4, 1:16 am, [EMAIL PROTECTED] (John W. Krahn) wrote: > Andy wrote: > > Well Disregard the above script I made changes that I think were > > needed, but I still have no output in the .csv files > > You still have some of the same mistakes that were in the program the &

Re: Debug Help Please

On Jul 5, 9:54 pm, [EMAIL PROTECTED] (John W. Krahn) wrote: > Andy wrote: > > > Greets > > Hello, > > > Thanks for your earlier help, but I am still stuck. > > > I took your advice and I believe I put together the script as you > > said. > > Ex

Re: Debug Help Please

On Jul 7, 11:53 am, [EMAIL PROTECTED] (Rob Dixon) wrote: > Andy wrote: > > > Funny how when you talk to different people you get different ways of > > looking at it. > > > One of the Perl guys at my office. told me that I can use > > use strict; > > use

Re: Debug Help Please

On Jul 7, 4:33 pm, [EMAIL PROTECTED] (John W. Krahn) wrote: > Andy wrote: > > > Funny how when you talk to different people you get different ways of > > looking at it. > > Yes, that is how the world works. In Perl there is the expression > TIMTOWTDI (There Is More T

Re: Debug Help Please

On Jul 7, 2:16 pm, [EMAIL PROTECTED] (Andy) wrote: > On Jul 7, 11:53 am, [EMAIL PROTECTED] (Rob Dixon) wrote: > > > > > Andy wrote: > > > > Funny how when you talk to different people you get different ways of > > > looking at it. > > > > One of

Re: Howto Pull files from two diff machines

Hiya Guys You guys have been previously helping me with a script. "Debug Please" Was the title. It's working as far as we can tell. But I need to be able to ftp to two machines and pull down xferlog Therefore each xferlog would be downloaded as xferlog.host.month.log Then either joined as on

Problem with @INC in XAMPP

item in the @INC list this is causing a failure? But I don't understand why or how the c:/xampp/ apache path is being added to @INC ? Any suggestions to resolve this would be greatly appreciated. Andy -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Manually installing perl modules on windows

doesnt have on a windows system? many thanks in advance, sorry if this is a dumb question Andy -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Simple db - PERL vs MS SQL Server

ey of record) Is having a seperate index file for searching by non-key fields practical for options 2 & 4 ... I've already discounted 3 as being a serious contender. Your thoughts & experiences are warmly welcomed! Thanks, Andy -- To unsubscribe, e-mail: [EMAIL PROTECTED] For addit

socket input, unexpected behaviour

ode which was executed when LIST was handld, I replaced it so it performs exactly the same action as the NOOP command string (namely returns string '+OK' ), however the weirdness persists! I was runnign ActiveState PERL 5.8 on both boxes. Any ideas ? thanks, Andy. # Code excerpt socket(Se

Re: coping txt files over a peer to peer.

terpreter for commands and the data transfer process for, well ... Cheers, Andy. - Original Message - From: "Tino Arellano" <[EMAIL PROTECTED]> Newsgroups: perl.beginners To: <[EMAIL PROTECTED]> Sent: Wednesday, January 07, 2004 10:31 PM Subject: coping txt files

Re: radio and perl ?

Hi Nafiseh, You can make radio buttons using perl cgi. Check out the link that will show you the perl documentation for it, it should give you a good starting reference. http://theoryx5.uwinnipeg.ca/CPAN/perl/CGI.html#CREATING_A_RADIO_BUTTON_GROUP All the best Andy On Tue, 11 Sep 2001 13:33

Condolences to US readers

This is to all Americans as a nation, and to foriegners who lost loved ones on September 13. My heartfelt condolences go out to you, and my sincerest wish that you find peace soon. Andy -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: how to open a .iso file

somewhere like www.linuxiso.org What are you actually trying to do?? Andy On Wed, 19 Sep 2001 11:00:18 -0400 (EDT) "Brett W. McCoy" <[EMAIL PROTECTED]> wrote: > On Wed, 19 Sep 2001, rc wrote: > > > Anyone know how to open up a .iso file ? > > What are you d

Re: how to open a .iso file

Spam... since when was asking questions and wanting to learn something spam?? If you don't like, don't read it. But don't have a go at someone just because he asked something you didn't like and wasted YOUR time. Your whinging is more spam than the question ever was.

Re: how to open a .iso file

e a problem with questions that "don't quite > fit" the group subject (monitor your emails and delete, you need to expect > crap to come through if you are signed up to maillists). Everyone should > have a problem with people who scold people publicly on this maillist (oo

Re: help me understand $_

"afile"); while(){ chomp; s/replacethis/withthis/g; do 'this' if m/matchthis/; print; } close(); In the second example, $_ stands in for "the default input", and what the loop is iterating over. Hope that helps, --Andy

Re: help me understand $_

> > Are there performance implications for using the implicit variable ($_) rather > than declaring a specific variable? If so how great ? Yes, though very minimal performance hit if anything. Consider the following: while (chomp(my $line = )) { ... } vs. while ()( ... } According to an exc

Re: My My

ngs to ME and almost more importantly, not to you. It's not ours (or I would have said it was), and the ownership of this thing is not abmiguous. It's mine - and mine only. My accomlishes the same thing in perl. Andy Says 'My Apple' #declares that is is an apple, and that it belongs

Re: pulling out part of a /path/to/a/file

hi, here's a regex that matches what you're after: $filename =~ m/\/(File-[^\/]+)/; $part_you_want = $1; Simply using negation to match "File-" (and anything which is not a "/") which is preceeded by a "/", is what you want. The trailing / is optional. File::Basename is used to separate the f

Re: Global symbol requires explicit pack name

Hi, The error message you're getting is one of the many changes to the nature of perl under strict. It usually means that the variable in question needs to be either explicitely named (via $::Package::Variable) or lexically scoped (via my, our, or use vars). you've made a couple errors here, w

Re: Displaying blobs on a website

If you're talking about using a database (such as mysql) to store images for later display/perusal on a web page, I believe I can offer a bit of aid. First - it's a bad idea. Databases add a number of layers of overhead for the access of BLOB data as opposed to the filesystem of whatever OS you'

RE: Session Variables

There are many ways to do it, here's mine: I wanted to semi-securely identify users to my site, having them log in once, and then never have the need to login again (as long as they're at the same computer) So, I used cookies (perldoc CGI) to set a unique session ID, once a user had logged in.

RE: Cookies

Cookies are set in the HTTP header portion of the HTML response. When you run you include your script within the page, the HTTP header has already been sent. You need to set the cookie as a standalone page (though you can get cookies in included scripts) --A -Original Message- From:

Re: useful scripts

When I first started, I found these two sites helpful... http://www.cgi-resources.com/ http://www.hotscripts.com/ Andy On Tue, 22 May 2001, Richard KHOO Guan Chen wrote: > Sorry if this is a stupid question > > Just wondering if there is a site which have useful simple perl scri

problems using split

.1.1.1 $router_type = cisco for instance, but instead, the split just gives a blank and the script prints out $router_tables{i} (1.1.1.1|cisco) I'm figuring it's the {i} causing the problem, but can anyone help me out... Thanks Andy

Re: problems using split

On Wed, 23 May 2001, Me wrote: > > ($router_table{i},$router_type{i}) = split(/\|/, > > $router_tables{i}); > > All those indices should be {$i} rather than {i}. They are actually $i in the script, just typos in the mail... appologies... > > I'm figuring it's the {i} causing the prob

Problems with split

{i} = cisco) it just returns two blanks (and hence prints out the $router_tables{$i} as its told to Any help appreciated Andy

Re: Problems with split

what should be $router_table{$i} ? I have $router_tables{$i} (with the s) which is something like 1.1.1.1|cisco and I want to split it to be $router_table{$i} (without the s) is 1.1.1.1 and $router_type{$i} is cisco Andy On Thu, 24 May 2001, Timothy Kimball wrote: > > Andy Roden

Re: Problems with split

ok, Appologies to all for not having included the whole thing, but here... the script is for collecting customer interface stats using snmp, and I need to destinguish what type of router the customer connects to in order to have the right MIB. It runs with a cfg file which I have included, which

RE: Off-Topic (200%) - Where are you from?

Amsterdam, The Netherlands (but I'm not dutch). Apologies for the late posting, but I enjoyed this thread so much I just wanted to add my bit :-) Andy On Fri, 9 Nov 2001, G. Stephen Gannon wrote: > Date: Fri, 9 Nov 2001 11:16:10 -0500 > From: G. Stephen Gannon <[EMAIL PROTECT

Some advice needed on file locking with modperl'ed code

writes to the one file by concurrent instantiantions of application? Has anyone with modperl coding experience under their belt done something like this? If so, what do I need to watch out for, and what good practices should I be aware of. All help is gratefully appreciated. Andy

RE: Some advice needed on file locking with modperl'ed code

Yeah, I was unsure about whether or not the o/s (slackware v8.0) would buffer the writes - not syswrite - if they occured concurrently, which is why I was looking into flock use. Many thanks Bob Andy On Thu, 15 Nov 2001, Bob Showalter wrote: > Date: Thu, 15 Nov 2001 10:40:17 -0500 > Fro

Help with Perl

y don't want to repeat $letter for every letter (B-L). In ksh Shell, I can do: if [[ $letter = @(A|B|B|C|D|...|L) ]] then do something fi Any help will be appreciated. Thanks Andy -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: Help with Perl

Thank you all for your help. Andy -Original Message- From: Maurice Reeves [mailto:[EMAIL PROTECTED]] Sent: Wednesday, December 05, 2001 1:36 PM To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: Re: Help with Perl if ($letter =~ m/[A-L]/) uses a regex which will give you what you want

Re: UUCP and perl (or any alternatives)

ternatives? Has anyone got a better way > to do this than uucp or had trouble getting this to work? Try "rcp" or "scp" depending on preference (and what is available on your system). Andy BTW - I just joined the list yesterday, hello everyone. -- To unsu

Re: not perl, but need some help with Linux...

ling with a local LUG and all else fails you can usually take a machine along to a local meeting and get some hands on support. Andy <[EMAIL PROTECTED]> -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Converting HTML to text?

ppropriate (although obviously that doesn't mean its not there), can anybody point me in the right direction? Andy <[EMAIL PROTECTED]> -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Perl Sockets oddity..

5:43>|" isn't numeric in numeric eq (==) at ilog.pl line 16. Argument "< 9/24/2008><12:25:43>||" isn't numeric in numeric eq (==) at ilog.pl line 16. So, $text does contain the result, but for some reason it will not print to the screen. I'm stu

Re: Perl Sockets oddity..

21" ) or die $!; print "Connected.\n"; $socket->print("|"); while ($socket->recv($text,128)) { print q{$text}; } However, I still dont see any text, with or without the q{} Thanks.. Andy On 24 Sep 2008, at 12:48, Deviloper wrote: Try

Re: Perl Sockets oddity..

On 24 Sep 2008, at 15:44, Rob Dixon wrote: Andy Dixon wrote: I may be being a bit dim, but I wrote this: #!/usr/bin/perl -w use IO::Socket::INET; print "ISONAS Logger (perl) v1\n"; my $socket = IO::Socket::INET->new( PeerAddr =

using Net::SSH::Expect within a thread fails

Hello, I'm having problems with the following code. It is supposed to get a list of IP addresses from the IAD module and then create a few threads to each log into those devices and make changes in the config. The only device that is allowed to access the devices I'm configuring is the 'manage.exa

Installing perl modules

=/home/jdoe/perlmods but if I'm correct, I think these perl modules will be seen by everybody on the server. Can someone clarify this? -- Andy -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

RE: matching elements from array and print the results line by line from log file

-Original Message- From: slow_leaner [mailto:[EMAIL PROTECTED] Sent: Tue 10/28/2008 11:58 AM To: beginners@perl.org Subject: matching elements from array and print the results line by line from log file Hi, I have a list of element in array that I would like to match the pattern in lo

Stupid question....

d[2]='fue' $record[3]='bargh' However, coming from a PHP background, things are somewhat different. I dont seem to be able to get my head around it...! Can anyone give me a couple of pointers? Thanks! Andy -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: Stupid question....

On 6 Dec 2008, at 10:50, Raymond Wan wrote: Hi Andy, Andy Dixon wrote: However, coming from a PHP background, things are somewhat different. I dont seem to be able to get my head around it...! Can anyone give me a couple of pointers? Have you looked at the perl documentation: http

Perl UNIX shell PATH problem

s the same on both servers. What else can be different between them? I can get the error to go away by putting traceroute in /usr/bin, but Id like to know why the perl code is fine on one server and not on the other, thanks for any suggest

Re: Perl UNIX shell PATH problem

/traceroute. Thats why Im confused :S thanks, Andy. Processes on *nix get their environment variables from their parents at the time of the fork. Is the $PATH the same on both servers? Does the directories in the $PATH have the same executables? Where is traceroute on both servers

Re: Perl UNIX shell PATH problem

info from anywhere special its going to be a purely UNIX issue, thanks for your help, Andy. Quoting "Mr. Shawn H. Corey" : On Fri, 2009-01-16 at 16:12 +, Andy Smith wrote: Is traceroute a shell script? If it is, the error may be from a missing progr

Re: Perl UNIX shell PATH problem

, and Ive grep'ed everying under /etc for scripts that set PATH with no joy (that is no joy of any that set the path to this value) thanks again, Andy. #!/usr/bin/perl use strict; use warnings; use CGI::Pretty qw( :standard :xhtml ); use CGI::Carp qw( fatalsToBrowser ); print header()

Re: Perl UNIX shell PATH problem

that I just wanted to understand my system, and I still dont :S Odd one, must be missing something basic! :P thanks, Andy. Try: ls -ld /etc/profile* /etc/bash* In Perl, before you call traceroute: $ENV{PATH} .= ':/sbin:/usr/sbin:/bin:/usr/bin:/usr/local/sbin:/usr/local/bin:/usr/X11R

accessing an array of hashes from another namespace

I have a program which I am working on which has several different packages. One of these packages, FluxDB.pm, creates an array of hashes called @users. Each element is a hash containing (among other things) username and uid (primary key from the DB this is generated out of). In another package,

Re: Extract digits from string

start with the regex. It's going to look in $data for items that match and return the elements caught by the ()'s into @array. the regex will catch anything that: 1) starts with a ( 2) is made up of at least 1 digit character 3) ends with a ) On 9/8/06, J. Alejandro Noli <[EMAIL PROTECTED]> wro

Re: perl scalar

if you use strict; then you'll need to declare it with my. If you don't (and you should think about that decision again) then you can leave off the my. my $variable = somevalue; $ means it's a scalar variable @ is for arrays % is for hashes On 9/20/06, elite elite <[EMAIL PROTECTED]> wrote:

socket question

I'm having some trouble with my perl script which uses IO::Select and IO::Socket to multiplex incoming connections as described here http://www.perlfect.com/articles/select.shtml Now, I am able to connect to the script using telnet, but when I try to connect to it with my php script which will b

Re: Where to change @INC in perl

How did you install the module? you should be able to just # cd /usr/ports/databases/p5-DBI/ && make install clean and it'll work like a charm. That's all I did. For modules that exist in the ports tree, I find that installing them this way is cleaner than perl -MCPAN -e "install foo::bar" becau

Re: Bad scoping? Bad prototyping?

On 10/9/06, Helliwell, Kim <[EMAIL PROTECTED]> wrote: The following test script fails to compile, complaining that there are not enough arguments in the call to sub2. #!/bin/perl sub1("Hello, "); sub1("world\n"); Are you sure you want sub1 prototyped twice? sub sub2($str) { pr

Re: Analize Java source file with perl?

I'm sure there's a better way to do this, but it really isn't too hard. -start--- #!/usr/bin/perl use warnings; use strict; my $file = shift || die "Please provide a java file to check.\n"; my @lines = `cat $file`; foreach

foreach question

I have a reference to an annonymous array, which I am looping through with foreach(@$servref) { if ( checkServer($_, $dn) ) { push(@$goodservref, $_); } else { # server wasn't good. Add another item to the list push(@$servref, newitem);

subroutine call makes foreach exit?

I'm writing a script for work that will dig for DNS records for a given domain name and put the entries into an array. At the end of the digging, it outputs the array elements to the screen, asks if everything looks good, and if so, writes them out to the shell and builds a zone file. However, I'v

Re: subroutine call makes foreach exit?

On 11/16/06, Jay Savage <[EMAIL PROTECTED]> wrote: On 11/16/06, Andy Greenwood <[EMAIL PROTECTED]> wrote: > I'm writing a script for work that will dig for DNS records for a > given domain name and put the entries into an array. At the end of the > digging, it outputs

Re: Hi,, Regarding perl modules

On 10 Jan 2007 09:21:55 -, Vikas Kumar Choudhary <[EMAIL PROTECTED]> wrote: Hi I am vikas here, just getting in perl.. can anybody told me to create modules and how to use these in our scripts.. $ perldoc perlmod should get you started. To use modules you've created, just put this at the

Net::BitTorrent::File problems

I'm trying to extract the SHA1 hashes out of a .torrent file using Net::BitTorrent::File, among other information, but can't seem to figure out how to get them. I keep getting binary data, not the ascii hash. Can anyone tell me what I'm doing wrong here? #!/usr/bin/perl use strict; use warnings;

Re: Net::BitTorrent::File problems

Never mind. I got it straightened out. I just had to ... my $pieces = $info->{'pieces'}; $pieces =~ s/(.)/sprintf("%02x",ord($1))/egs; ... On 1/11/07, Andy Greenwood <[EMAIL PROTECTED]> wrote: I'm trying to extract the SHA1 hashes out of a .torrent file using

Re: confusion with splitting columns using [-n, -n] (e.g; my ( $country, $bytes ) = ( split )[ -2, -1 ])

On 1/30/07, Michael Alipio <[EMAIL PROTECTED]> wrote: Hi, I have a file that look like this: 1668 | 172.194.177.182 | US12679172 10396 | 64.237.148.157 | PR 12679172 9318 | 211.187.212.242 | KR1279172 22291 | 66.215.254.186 | US 1269172 22291 |

Re: unix date for perl time calculation

On 3/21/07, Kevin Viel <[EMAIL PROTECTED]> wrote: I want to determine the amount of time one of my scripts and figured collecting the beginning and ending date might suffice, if I could feed it to, say, perl for the calculation: d0=`date` d1=`date` perl -e $d1 - $d0 > log Is this worth ex

cannot determine peer address with Unix domain sockets

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: cannot determine peer address with Unix domain sockets

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 s

Re: cannot determine peer address with Unix domain sockets

On 3/22/07, Tom Phoenix <[EMAIL PROTECTED]> wrote: 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 '

Re: cannot determine peer address with Unix domain sockets

On 3/23/07, John W. Krahn <[EMAIL PROTECTED]> wrote: Andy Greenwood wrote: > On 3/22/07, Tom Phoenix <[EMAIL PROTECTED]> wrote: >> On 3/22/07, Andy Greenwood <[EMAIL PROTECTED]> wrote: >> >> > $Select = new IO::Select(); >> >> Is $Se

Re: Bandwidth Generated

On 4/13/07, oryann9 <[EMAIL PROTECTED]> wrote: > > It works fine with 5.8.8 on my Fedora Core 5: > > $ perl -e 'for ("","abc\n","def","hij\n"){print; > warn tell STDOUT,"\n"}' > 0 > abc > 4 > 7 > defhij > 11 > $ > Does not seem to be accurate on this platform??? $ uname -a CYGWIN_NT-5.1 dubmds

**Perl Import Problem**

used. Any help or advice would be GREATLY appreciated!! Thank you! Andy Schwarz The e-mail headers look like: Date: Mon, 31 Jan 2000 19:09:12 -0600 Reply-To: Bob Jones <[EMAIL PROTECTED]> Sender: ISWORLD Information Systems World Network<[EMAIL PROTECTED]> From:

Re: pass variable to another program

On 5/17/07, Brian Volk <[EMAIL PROTECTED]> wrote: Hello, Is there a way to pass a variable from one program to another? I have a web site that allows the user to set the time they would like to download a file... The program uses the Linux "at" command and launches another perl program that d

Re: Unable to store the output of a command

On 5/18/07, divya <[EMAIL PROTECTED]> wrote: Hi, I want to store the output of following command: "vcover merge outfile in1 in2" I tried : 1) @result = `vcover merge outfile in1 in2`; 2) system("vcover merge outfile in1 in2 > @result"); I can see some error displays on the screen. But these ar

Re: library (random numberS)

On 7/27/07, yitzle <[EMAIL PROTECTED]> wrote: > I was under the impression that "average" meant mean. correct. Average is the common term for mean. In fact, reading the pages linked above, they do imply (without stating explicitly) that the three terms describe different calculations. I can't thi

Re: AFAIK

Somu wrote: What does it mean? AFAIK? I have seeing it a lot.. Earlier i've been seeing the HTH, and a guess gave the answer.. But this one, AFAIK... Are there any more such short forms? As far as I know Hope that helps! http://www.ucandoit.org.uk/knowledgebase/webacronyms.html -- To unsu

Re: Comparing Regular Expression in Perl vs Python

Michael Gale wrote: Hey, I have done some scripts in python, I found it easy to use and quick. I found I could recreate some apps faster in python however I found that the regular expression usage in python does not match perl's. I agree, regexp usage in python is quite clunky compared t

Re: "premature end of header" script error

Ankur wrote: Hi, I am receiving the following error : "Premature end of script headers" when running my CGI script using a web browser. Instead if I execute the script manually at the shell, it executes successfully. Actually, the script needs to fetch a lot of data from the database. When

Module help

data); } I think I may have missed something.. Any help would be wonderful! Thanks! Andy -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: Module help

Thanks everyone who helped - I am new to perl, and after coding with php and various other languages, I have not yet fully grasped some of perl's concepts...! Thanks once again!! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org

Re: help me die verbosely

Chas. Owens wrote: On Jan 17, 2008 9:54 AM, Jonathan Mast <[EMAIL PROTECTED]> wrote: I want to write the errors caught by a 'die' clause into a file. snip Try #!/usr/bin/perl use strict; use warnings; $SIG{__DIE__} = sub { open my $fh, ">>", "something.log" or die @_, "c

Re: ERROR: Argument isn't numeric

e modules File::Basename File::Spec and maybe the non-core (needs to be added via cpan or ppm) Path::Class See "Learning Perl" page 194-196 a Andy Bach (608) 658-1890 Not at my desk On Jun 11, 2012, at 8:50 PM, Zheng Du wrote: > > foreach $i (@dir) { > *#$i here refers t

Re: Error Message on Perlbrew Install

ut you probably need to add that and try again. Often these installs will have an option to install any missing modules as part of the install process, saying yes to that's an okay thing. a Andy Bach (608) 658-1890 Not at my desk On Jun 16, 2012, at 9:20 AM, MallHair wrote: > H

Re: Unicode question

; print length($unicode), "\n"; # will print 1 require Encode; print length(Encode::encode_utf8($unicode)),"\n"; # will print 2 use bytes; print length($unicode), "\n"; # will also print 2 # (the 0xC4 0x80 of the UTF-8) no bytes; -- a An

Re: Unicode question

le time event (require is runtime) so I was thinking it wouldn't be scoped that way but it does appear that it stays in scope so you don't need belts and a suspender, er, the 'no bytes' un-pragma. -- a Andy Bach, afb...@gmail.com 608 658-1890 cell 608 261-5738 wk -- To unsubsc

Re: Perl MVC framework

: http://www.youtube.com/yapcna otherwise, they will be soon. -- a Andy Bach, afb...@gmail.com 608 658-1890 cell 608 261-5738 wk -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Fwd: [Perlweekly] #51 - What's new on the Perl Beginners' Site?

erl Beginners' Site <http://bit.ly/SyaFxg> Shlomi Fish maintains the http://Perl-Begin.org site, an alternative to the 'official' learn.perl.org site. Once in a while he announces some changes and updates that are worth checking out. -- a Andy Bach, afb...@gmail.com 608 658-1890 cell 608 261-5738 wk

Re: How to zip all files which are value from awk command ?

On Thu, Jul 26, 2012 at 11:00 AM, Andy Bach wrote: > On Thu, Jul 26, 2012 at 5:05 AM, Jack Vo wrote: >> I need to compress many files in a directory on server. I use "awk" and >> "zip" command to compress these files. > > Yeah, awk's not buying y

Re: Regex sending me mad

irement your RE looks for is the single blank between capture 1 and 2 - so Kia\tVenga won't work. Actually anything w/o a blank will fail ... don't really know enough about your data but try maybe: if ($model=~/(\S+)\s+(.*)\s*$/) { -- a Andy Bach, afb...@gmail.com 608 658-1890 cell 608 261-5738 wk -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: Regex sending me mad

On Fri, Jul 27, 2012 at 10:22 AM, Dr.Ruud wrote: > On 2012-07-27 16:58, Andy Bach wrote: > >> if ($model=~/(\S+)\s+(.*)\s*$/) { > > > The \s* in the end does nothing. Well, I was thinking if it's a multi-word second match: v6 Austin Martin Then that would matches

Re: subroutines only return once

template, some copy) w/ the data. Note, you really want to look at verifying your opens: open my $fh1, '<', $template_file or die "can't open $template_file: $!"; as this would also be troublesome for your code flow and it's just a good idea. -- a Andy Bach, afb..

Re: How to get the file handle of a scalar

r failure using their return values. I understand what you're saying, I thought it was to cover the fact that open return value wasn't being checked? Same as if I'd rewritten that to be open my $fh_to_string, '<', \$buffer or die "can't unbuffer string: $!&

Re: MIME::Lite setup

ain.com Subject: Simple Test Email This is a simple test message using MIME::Lite. -- a Andy Bach, afb...@gmail.com 608 658-1890 cell 608 261-5738 wk -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: A regex problem?

-valid chars, do you care? if ( $q1_elaborate =~ s/[^[:alpha:]'\s.-]//g ) { # if appropriate warn("Non-valid chars in q1_elaborate\n"); } $q1_elaborate = quotemeta($q1_elaborate); Again, not a big gain here, but as a rule of thumb - doing your match/subst in an if or if/el

Re: syntax question conc​erning Rex::Commands​::Iptables perldoc s​ynopsis​

ax for some kind of multitasking/fork/parallel (POE, AnyEvent, Coro, Padre::TaskManager etc.) module - were there any 'use' or 'require' statements in the original code? -- a Andy Bach, afb...@gmail.com 608 658-1890 cell 608 261-5738 wk -- To unsubscribe, e-mail: beginners

  1   2   3   >