Re: simple tcp socket server:Is it possible, server wait for '!' sign, not '\n'?

2007-06-18 Thread Max Rodkin
7;) { print $str; } else{exec("/home/gsserver.pl&");} and setup it in crontab. The gsserver.pl in RAM permanently. But it not work , i did left system on several days, and script did not answer for requests. But it`s running. What may be wrong? Respect, Max Rodkin -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

simple tcp socket server:Is it possible, server wait for '!' sign, not '\n'?

2007-06-09 Thread Max Rodkin
Reuse => 1); die "can't setup server" unless $server; print "[Server $0 accepting clients]\n"; while ($client = $server->accept()) { $client->autoflush(1); while ( <$client>) { $answer = $_; print $answer; } continue {print $

Word Count Question.

2006-04-13 Thread Max von Seibold
I'm trying to write a small word counting script - I'm certain there are zillions out there but it seemed a good learning exercise... Bascially I read in each line from my text file which I want to count with a basic while loop and file handle. The problem is on the count. I know I could spli

Command Line Question

2006-04-08 Thread Max von Seibold
alue of the file for each iteration? I'm guessing something along the lines of $1 but i'm not sure... Sorry if this is not technically perl . I will be trying to use this in a perl script but want to understand how to do it on the command line first. Thank you, Max. -- To unsubsc

How to load environment ?

2004-05-15 Thread max
use another bash script to load the environment and run the perl script from one line in the crontab, the content of the load and run script is this: --- !/bin/sh . ~max/tmp/g_amb.sh # <-- This Loads the environm

Re: how to pass multi array as args

2003-10-26 Thread Max
I test this and it works, there must be some other way, but i am only a newbie on perl, > mysub(@a, @b, @c); mysub("@a", "@b", "@c"); > sub mysub > { my @a = ? #arg1 an array $_[0] is not working > my @b = ? arg2 another array $_[1] is not working > my @c = ? arg3 another array $_[2] is n

Re: Spreadsheet::ParseExcel date problem (year is being reformatted)

2002-12-16 Thread Max
yy). Max NYIMI Jose (BMB) wrote: $oSheetCR->Value #formatted value $oSheetCR->{Val} #original value José. -Original Message----- From: Max [mailto:[EMAIL PROTECTED]] Sent: Tuesday, December 10, 2002 4:50 PM To: [EMAIL PROTECTED] Subject: Spreadsheet::ParseExcel date problem (year

Re: Spreadsheet::ParseExcel date problem (year is being reformatted)

2002-12-12 Thread Max
y now how to prevent this? Mystik Gotan wrote: Regex? $var =~ s/\b\**\**\b//; # deletes * -- Bob Erinkveld (Webmaster Insane Hosts) www.insane-hosts.net MSN: [EMAIL PROTECTED] From: Max <[EMAIL PROTECTED]> To: [EMAIL PROTECTED] Subject: Spreadsheet::ParseExcel date probl

Spreadsheet::ParseExcel date problem (year is being reformatted)

2002-12-11 Thread Max
iColom++) { $oSheetCR = $oWorkSheet->{Cells}[$iRow][$iColom]; push @string,$oSheetCR->Value if ($oSheetCR); } } Any help is appreciated, Max

Zip Files

2002-11-12 Thread max . calvo
an point out the mistakes that I am making. Thanks in Advance. -Max Code +++ 1 #!/usr/bin/perl -w 2 use strict ; 3 4 use Compress::Zlib ; 5 6 my $x = inflateInit() or die "Cannot create a inflation strea

Help parsing a large file

2002-08-21 Thread Max Clark
ut garbage. How can I do this better? Thanks in advance, -Max #!/usr/bin/perl -w use Email::Valid; open (GOOD, ">valid.good") || die "$!"; open (BAD, ">valid.bad") || die "$!"; while (<>) { if (Email::Valid->addre

Trapping "Ctrl C"

2002-07-15 Thread Max Clark
Hi. I'm looking for a way to run an operation (like a while (<>) loop for example) until the user presses "ctrl-c". Except instead of ending the perl script I want to trap the "ctrl-c" and present the user a menu of options. Is this possible? Thanks, Max --

RE: Removing ^M (Carriage Return) from files on *nix

2002-04-27 Thread Max Clark
Another way would be like this... $ col -bx < dosfile > newfile It's important that you use a different file name for the "newfile". Max -Original Message- From: Shaun Fryer [mailto:[EMAIL PROTECTED]] Sent: Friday, April 26, 2002 5:03 PM To: Perl Beginners

Windows Registry access

2002-01-27 Thread Max
I'm trying to read information out of the windows registry with part of my perl program. is there some nice way to do that? in case it matters, i am running Windows ME. thank you max - Do You Yahoo!? Yahoo! Auctions Great stuff seeking new owners! Bid now!

printing to the printer

2001-09-07 Thread max gg
how do i print directly from my program to the printer. i've looked in my books but cant seem to find it. thanks max __ Do You Yahoo!? Get email alerts & NEW webcam video instant messaging with Yahoo! Messenger http://im.yahoo.co

Re: require command?

2001-06-12 Thread Max Attems
nput seems correct to me: ) now I'm quite curious, why the script don't tell me anymore "unassigned value" and passes through the if condition. As $password is "blabla" $pass must have got the value from the form. thanks for your help max attems the code: #!/usr/

remove naughty charakters

2001-06-12 Thread Max Attems
return $name; } which regex is better for checking the output of a html formular. thanks for your advices! regards max attems

Re: require command?

2001-06-12 Thread Max Attems
lized value in string ne at send.cgi line 20. line 20 is looking for a string defined in conf.cgi, why does it not use it. line 20: if( $pass ne $passwort ) { (the variable was defined in conf.cgi: $passwort = "blabla";) thanks a lot for your first help, perhaps you know an answer to my created bug. max

require command?

2001-06-12 Thread Max Attems
/37/cgi-bin/mail/send.cgi" why does this happen!? thanks for your help. with best regards max attems