Re: Solved mv Is Not Working the Same Way Under System as Under a Shell.

Hi Martin, > I feel embarrassed for wasting everybody's time, but I > really appreciate the help. sometimes one needs to think out loud to solve a problem. I had a lot of problems like this one where it helped to get feedback from this list. Regards, Jan -- Paranoia is simply an optimist

Re: Solved mv Is Not Working the Same Way Under System as Under a Shell.

Hi Martin, > I feel embarrassed for wasting everybody's time, but I > really appreciate the help. sometimes one needs to think out loud to solve a problem. I had a lot of problems like this one where it helped to get feedback from this list. Regards, Jan -- Paranoia is simply an optimis

Re: Gigantic file size processing error

Hi List, On Friday, January 03, 2014 10:57:13 AM kurtz le pirate wrote: > have you try this kind of command : > perl -p -i -e "s/oneThing/otherThing/g" yourFile I was about to post the same thing. My suggestion: Create a backup file just in case something goes wrong. perl -pi.bak -e "s/oneTh

Re: How to change @INC

Hi! > > how can I fix this error telling perl to search in corretc path (that > > is /opt/perl/lib/5.6.1/PA-RISC1.1-thread-multi/Fcntl.pm)? You can push || unshift(@INC, 'some directory'). Best regards, Jan -- cat /dev/world | perl -e "while (<>) {(/(^.*?\?) 42\!/) && (print $1)}" errors->(c) -

Re: Undefined subroutine

Hi > Where is Eris_Gate.pm, and what is its package declaration? From > what you say it should be in > /usr/lib/perl5/site_perl/5.8.0/Modules Right, its in there. > and should read > package Modules::Eris_Gate NO, it didn't. It read "package Eris_gate" before. Thanks, I missed this one at

Undefined subroutine

Hi! What could be a possible reason, that functions exported by a module appear like that in the Symbol Table: Eris_Gate::__ANON__[/usr/lib/perl5/site_perl/5.8.0/Modules/Eris_Gate.pm:146] Eris_Gate::__ANON__[/usr/lib/perl5/site_perl/5.8.0/Modules/Eris_Gate.pm:147] Eris_Gate::__ANON__[/usr/lib/pe

Re: Multi threading in perl

Hi, Lance && list! > > Hi, > >does anybody have sample perl script multi > > threaded program As of perl 5.8.0 there is a new thread implementation (IThreads). Although its not yet recomended for production, its worth a look. perldoc perlthrtut gives a good starting point. HTH, Jan --

Re: Hash Question

Hi, Sean && List >$Hash{"$User"}{"$Page"}{"$NumTimesVisited"} = $ANumber; > Is this possible? Sure, this will work. I would decrease the hash depth a bit: $Hash{$User}{$Page} = $NumTimesVisited; > If so, how would I traverse this, as I will not know > before hand the values in the hash; I wi

Re: Question about wantarray()

Hi, > I can't really figure out what the purpose of wantarray() is. > Can someone please give me a good, decent explanation? wantarray() returns true if the context of the actual subroutine expects a list as return value(s). sub do_something { my $arg = shift; do_something and stuff

Re: Problem with Mail::MboxParser

Hi ! > in the above case line 31 is > my $mb = Mail::MboxParser->new("(\*STDIN)", decode => 'HEADER'); my $mb = Mail::MboxParser->new("\*STDIN", decode => 'HEADER'); should work fine (untested). HTH, Jan -- cat /dev/world | perl -e "while (<>) {(/(^.*? \?) 42 \!/) && (print $1)}" errors->(c)

Re: running a perl script in an other one ?

Hi, On Thursday 14 November 2002 12:43, Olympio Raymond wrote: > So, is it possible to run a perl script into an other one ? You can use either system() or exec(). The difference is, that exec() doesnt return to the calling script, which basically means, your script will end after calling th

Re: Need Help With Perl! I'm Lost!

Hi, Dan ! DId you place the config.cgi in one of these directories ? > Can't locate config.cgi in @INC (@INC contains: > /usr/local/lib/perl5/5.6.0/i386-bsdos /usr/local/lib/perl5/5.6.0 > /usr/local/lib/perl5/site_perl/5.6.0/i386-bsdos > /usr/local/lib/perl5/site_perl/5.6.0 /usr/local/lib/perl5/s

Re: unusual character splitting

Hi Alex && List ! > i want to split a line like: > $line = 'hello, this is a test line, but what with the letter ä or ë?'; > but i won't get "ë" or "ä", > thus is my question: which regex do i have to use so i'll get the words > with diaeresis also in @words? @words = split(/[\W,.]/, $lijn); Un

Re: how can i change this

Hi, again ! Forgot to clean up the code ... > open (MAIL, "| $mail $recipient") || &abort ("Can't open $mail: $!\n"); should read open (MAIL, "| $mail $recipient") || die ("Can't open $mail: $!\n"); Cheers, Jan -- cat /dev/world | perl -e "while (<>) {(/(^.*? \?) 42 \!/) && (print $1)}" err

Re: how can i change this

Hi Debbie && List ! At the moment the From: is automatically set by 'mail'. It assumes, that the uid, which owns the webserver process (nobody), is the sender of that mail. Here's another way to do it: my $mail = '/usr/sbin/sendmail'; my $recipient = 'somebody\@somewhere.on.the.net'; open

Re: A question about strings and hexadecimal numbers of special characters

Hi O && List ! On Wednesday 06 March 2002 11:41 am, you wrote: > I'm very new to Perl and have a basic question. How can I convert special > characters contained in a string to hexadesimal numbers. sub HTMLify { my $what = shift; $what =~ s/(\W)/sprintf("%%%x", ord($1))/eg; return $w

Re: autorun

Hi ! On Wednesday 06 March 2002 09:21 am, you wrote: > How can I scheduler a cgi script? Depends on the platform you are working on. Window$ has its TaskPlaner, *nix has a cron daemon (man cron) Another way: let the script sleep while you dont need it. sleep (86400) sleeps for one da

Re: Trouble with Net::Ping

Hi, Joseph && list ! On Friday 01 March 2002 02:44 pm, you wrote: > I am appearing to have some > troubles. It appears that it can not reach the hosts specified, but when I > try it manually it works just fine. # use TCP if we're not root, ICMP if we are my $pong = Net::Ping->new( $> ? ("tcp",

Re: return new hashref

Hi, Jenda ! - code snipped - Grr, i was playing around with eval and bless, but forgot the KISS ! Thx, Jan -- cat /dev/world | perl -e "while (<>) {(/(^.*? \?) 42 \!/) && (print $1)}" errors->(c) _ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECT

return new hashref

Hi, List ! I'm trying to build a linked list, containing hashrefs. Walking through the %HashRef (-x %HashRef) i can see a lot of 'REUSED_ADDRESS'es in the list. At the end, all refs point to one single adress, so every HashRef in my list points to the same hash. I have considered trying the OO

Re: some questions about for, foreach

Hi, Jon && list ! On Friday 01 March 2002 11:29 am, you wrote: > Hi list! > > I've always thought there's a difference between for and foreach, that > for uses copies and foreach not. But there's no diff is there? AFAIK there's not really a difference between these two. It merely depends on you

Re: Why won't while die? + Accessing the filename of a opened file

Hi, List ! > if(open(FILE1, "/Users/tor/Perl/test")) { > $line = ; >print ("This is the contents of the file\n"); >while($line ne " ") { Hey, you are looking for a line that doesnt contain a space. ;o) >print ($line); >$line = ; >

Re: problem recognising character

al character? Hmm, i think \n is the equivalent of %0D%0A. HTH, -- Jan Gruber Primacom AG Central Systems cat /dev/world | perl -e "while (<>) {(/(^.*? \?) 42 \!/) && (print $1)}" errors->(c) _ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: How can my script wait a moment before going to another URL?

Hi ! > system(".."); #(it takes quite a while) > Location: URL > > How can I let system() finish its work and then go to > the URL? AFAIR, system() won't return unless it is finished or the process has been killed. So you wont need an additional sl

Re: What's wrong with this?

to the original hash and just in case you use huge hashes, it saves some time, since you dont have to pass the whole big hash, but rather a reference to it. HTH, -- Jan Gruber Primacom AG Central Systems cat /dev/world | perl -e "while (<>) {(/(^.*? \?) 42 \!/) &&

Re: What's wrong with this?

gt; $data = $q->Vars; > > > > print $data->{field}; # etc. Just a little add on: I had to use CGI ':cgi-lib'; to get the $q->Vars function working. I think %data = $q->vars would be better to read and I'm not sure if the Vars() function returns a reference

Re: What's wrong with this?

quot;c", hex($1))/ge; > # $data{"$_[0]"} = $_[1]; > # } > # foreach (keys %data) > # { > # $data{"$_"} =~ s/\+/ /g; > # $data{"$_"} =~ s/%(..)/pack("c", hex($1))/ge; > # } > > use CGI 'param';