Could anyone please answer a simple PERL question.

Hi, I always used PERL in UNIX environment, so it's my first time trying to run a PERL script in Windows env and I have a simple question to ask, (I know how to do this in UNIX but not in windows). I installed PERL for Windows under: C:\Z_Perl_584\Perl\bin my below simple PERL script is called "si

How can I assign system() call to a Variable

Hi... Can someone help me on this? Actually I can get the dara from the system()...But it shows "0" when I print the $result...How can I assign the system() to $result ?Thanks... here below is the code... $inact = "cat /proc/meminfo | grep -w Inactive | sed 's/^.*Inactive: // g' | sed 's/kB

Re: How can I assign system() call to a Variable

Hi... Relly appreciate all of you guys' help. You guys did provide me valuable information. I will give it a try all you guys suggestion. Actually I gave up the system() call last night since it gave me such a hard time. The other way I did is shown below to get the data I need, my $inactiv

Re: How can I assign system() call to a Variable

Hi.. Thanks for all you guys help & Suggestion. Actually I truned around to use the other way to get the data I need since system() give me such a hard time... :( my $inactive = "cat /proc/meminfo | grep -w Inactive | sed 's/ ^.*Inactive://g' | sed 's/kB//'"; open(DATA, "$inactive|") || die "Ca

Re: How can I assign system() call to a Variable

By the way, how can I use this script to get the data I need form remote machine?...thanks -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Question abount counting the total number of lines and put to an variable?

Hi.. I have a question about how to count the total of line that shows on the screen. Here below is my code.. open (MYFILE, '123.txt'); while () { if ($_ =~ /^User:/) { print $_; } } close (MYFILE); then it will shows the following on the screen, User: ABC User: DEF Is there any way th

Re: Question abount counting the total number of lines and put to an variable?

Hi.. Thank you...But how can I do that ? The code will show 2 line liek below, how can I get the a number "2" and save to the variable? thanks. User: ABC User: DEF -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: Question abount counting the total number of lines and put to an variable?

Hi Ruud, your script is fantastic..this is the data I really need. Thank you... -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: Question abount counting the total number of lines and put to an variable?

Here blow is the code I did.. open (MYFILE, '123.txt'); while () { if ($_ =~ /^User:/){ $count = $_+1; print "$count\n"; } } close (MYFILE); But it shows the result below, 1 1 1 How can I add those together become 3 ? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional com

Re: Question abount counting the total number of lines and put to an variable?

Hi Patmarbidon, Thanks for your help. you do help me a lot...thanks... -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Statement failure inside a loop

at wt800.pm line 121 The idea behind this coding is to be able to use any object providing a "write" and a "read" method inside my object. (i.e. messageDevice::SerialPort) I'm using Perl 2.7 on a OpenSuSE 13.2 system. Any hint? Tnx Marco sub get_answer { my ($s

looking for a string in multiple files

file1"; } elsif ($result eq $file2) { print "$result was found in $file2"; } elsif ($result eq $file3) { print "$result was found in $file3"; } else { print "$result was not found in any file!\n"; } } This only prints each line o

Re: looking for a string in multiple files

ile "pri/foo.com"; }; So, the string is in 1 of the 3 target files, but, unfortunately, your program didn't match the string from the input file. Fenx again. Gr, -- Marco van Lienen <[EMAIL PROTECTED]> GPG:0x8580E6CB Available on keyservers. We are Bitc

Re: looking for a string in multiple files

that I'm not at the level to fully understand all of your code yet, but hopefully with enough time and effort I'll get there someday. Fenx for the code Gr, -- Marco van Lienen <[EMAIL PROTECTED]> GPG:0x8580E6CB Available on keyservers. We are BitchX of Borg. You w

Re: [PBML] which is better

Program Files\Microsoft Office\Office> Outlook.exe /c ipm.note /m [EMAIL PROTECTED] You will remark, the subject and the body of the mesage are missing, and the mail will not be send automaticaly. Perhaps they are others switches to complete this CL, but I don't know them. Marco From:

Using OLE with MS Excel

ion=>xlLandscape, Draft=>0, PaperSize=>xlPaperA4, FirstPageNumber=>xlAutomatic, Order=>xlDownThenOver, BlackAndWhite=>1, Zoom=>2, FitToPagesWide=>1, FitToPagesTall=>1} ); $ExcelSheet->PrintOut( {Copies=>1, ActivePrinter=>"Acrobat PDFWriter

Assignment Operator

Hi All, I'm studying Perl since one week on "Learning Perl" written by L. Wall and in the paragraph "Assignment Operators" i don't understand why this: ($temp = $global) += $constant; is equivalent of: $tmp = $global + $constant; Instead, before i read it, i thought it was eq

Could anyone please help with PERL file association.

Notes-editor. what do I need to fix in Win-2000 to be able to double-click on myscript.PL and run it. thanks so much, Marco. - Do you Yahoo!? Yahoo! Mail Address AutoComplete - You start. We finish.

Re: Could anyone please help with PERL file association.

Hi, I associted it with c:\Perl\bin\perl.584 it runs my module one time with perl but the module does not stay associated even though I check marked always associte with this program. Marco. [EMAIL PROTECTED] wrote: Right mouse click on Start,select Explore, locate the file, Right mouse

Could anyone please help with PERL file association.

associated with perl even though I check-marked "always associte with PERL". what do I do now to associate it permanently with perl interpretor? thanks so much, Marco. - Do you Yahoo!? Yahoo! Mail Address AutoComplete - You start. We finish.

Re: A simple text or GUI-based menu script

don't know why, even though I changed dir to share. so I can't run your script. could you help? regards, Marco. > --- zentara <[EMAIL PROTECTED]> wrote: > > On Thu, 08 Jul 2004 09:41:02 -0400, zentara > > <[EMAIL PROTECTED]> > > wrote: > > >

[Solved]Re: Could anyone please help with PERL file association.

ssociate with path which is %path%;c:\Z_perl\bin, select it, for open with, do a change>other, and select ~\perl.exe, OK out. done. Marco. --- Marco Perl <[EMAIL PROTECTED]> wrote: > Hi Team , I am always grateful for your help. > when I double-click on myscript.PL rather than >

Re: A simple text or GUI-based menu script

how do I get all thread for below subject: Re: A simple text or GUI-based menu script thanks, Marco. __ Do you Yahoo!? Yahoo! Mail - 50x more storage than other providers! http://promotions.yahoo.com/new_mail -- To unsubscribe, e-mail: [EMAIL

Could you please help with a PERL/TK question.

? thanks so much, regards, Marco. __ Do you Yahoo!? Yahoo! Mail - 50x more storage than other providers! http://promotions.yahoo.com/new_mail -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <h

how do you run the debuger for perl/TK in Windows-2000

? thanks so much, regards, Marco. __ Do you Yahoo!? New and Improved Yahoo! Mail - Send 10MB messages! http://promotions.yahoo.com/new_mail -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <h

[SOLVED] RE: Could you please help with a PERL/TK question.

adding ; did not work, but running it from cmd shell did. thank you so much. regards, Marco. --- Toby Stuart <[EMAIL PROTECTED]> wrote: > > > > -Original Message----- > > From: Marco Perl [mailto:[EMAIL PROTECTED] > > Sent: Monday, 12 July 2004 4:19

[SOLVED] RE: how do you run the debuger for perl/TK in Windows-2000

my first email's subject line was not good/descriptive. so I tried a better subject line on my second email. in any rate, thanks for traffic update/info. I am new on this and I appreciate your concern. regards, Marco. --- Tim Johnson <[EMAIL PROTECTED]> wrote: > Please don&#

in a TK-GUI how to show grand-children of a child from toolbar.

lay grand-children to its right. i.e. Tests - XYZ ABC Child... choice1 choice2 choice3 what is the syntax to display [choice1, choice2, choice3] to the right of "Child..."? thanks a lot, Marco. - Do you Yahoo!? New and Improved Yahoo! Mail - 100MB free storage!

Help a newbie to pick best version of Linux for Perl and perl/TK.

Hi, Could you tell me what version of Linux is the most stable and with most lib modules to do pearl and perl/TK? I really appreciate your experience. Marco. - Do you Yahoo!? Yahoo! Mail - 50x more storage than other providers!

Help a newbie to fix a TK GUI script with toolbar children.

hoice2, choice3] to the right of "Child...>"? thanks a lot, Marco. - Do you Yahoo!? Read only the mail you want - Yahoo! Mail SpamGuard.

TELNET question from a newbie.

Hi, I am always grateful for your help. I use CYGWIN on win-2000 with a “$” prompt and run my .pl to telnet to a VxWorks station. When I do it manually this is what I follow: telnet open 144.248.176.132 then I get the login prompt which is "VxWorks Login: " and I enter "m

[Solved]Re: Help a newbie to pick best version of Linux for Perl and perl/TK.

thank you so much. regards, Marco. --- Harald Richard Ashburner <[EMAIL PROTECTED]> wrote: > Marco Perl said: > > > >Hi, Could you tell me what version of Linux is the > most stable and > > > >with most lib modules to do pearl and perl/TK? > > &g

Interesting issue: $t->print("ls"); fails.

n func2 to $t in func1, and continue on $t->print(); statements? regards, Marco. sub func1 { my ($forecast, $t); use Net::Telnet (); $t = new Net::Telnet; $t->open("$ip"); $t->waitfor('/login: /'); $t->print("OK"); $t-&g

Team! Help a newbie with $t->print("ls"); which fails.

ntinue on $t->print(); statements? I'm always grateful for your input. Code follows. Marco. sub func1 { my ($forecast, $t); use Net::Telnet (); $t = new Net::Telnet; $t->open("$ip"); $t->wait

WWW:mechanize to fetch content from a web page as you would do with the mouse

; "WWW"); $mech->get($url3); print $mech -> content(format => "text"); I do not get the same kind of inoformation, but only some text thjat is unuseful for me. Is there a way to get from WWW:Mechanize the same information I would get using the mouse to select

WWW::Mechanize, problem with select

ntrol","Charlottenburg (Charlottenburg)"); This is the error message I get: Illegal value 'Charlottenburg (Charlottenburg)' for field 'quarterControl' at /usr/lib/perl5/site_perl/5.8.8/WWW/Mechanize.pm line 1232 Below is the form I try to make selection from. Does anybody kn

Re: WWW:mechanize to fetch content from a web page as you would do with the mouse

Tom, thanks a lotg for the help. I found my way out with the code below. Anyway the content of the page in text format is shown as a whole long text line. I wonder if it is possible to get the line breaks as well ?? Marco $file_output = "./immob24_out.txt"; open(RES, ">$f

read and write to parallel port

Hello - I need to write and read to a parallel port and its registers; have Somebody an idea about how to do it? I'm using WinNT and Win2000. Thanks Marco Centemeri -- Eng. MARCO CENTEMERI Telecommunication and Periph

send mail with authentication and secure connection

vance Marco C. -- Eng. MARCO CENTEMERI STMicroelectronics Automotive Power Group Power Train & Safety division Engineering dept. STMicroelectronics Srl Phone: +39.039

Re: send mail with authentication and secure connection

It works fine! Thanks Marco C. --- Original Message Sent: Wednesday 01 March 2006 9:01:14 PM To: "Perl Beginners" From: "Michael Weber" <[EMAIL PROTECTED]> Subject: send mail with authentication and secure connection > How ab

Varnish module configuration

https://metacpan.org/source/RCL/Varnish-CLI-0.03/lib%2FVarnish%2FCLI.pm I don't know if I'm doing something wrong. I'm trying to use this CLI against an upgraded Varnish server and it seems the new version is built with a secret being required to connect remotely. I think the relevant sections a

Re: Varnish module configuration

different places without luck: secret => $self->{'MY_GUID'} // '', secret => $self->{VarnishSecret} // 'MY_GUID', On Sun, Nov 15, 2020 at 6:42 AM Marco Shaw wrote: > https://metacpan.org/source/RCL/Varnish-CLI-0.03/lib%2FVarnish%2FCLI.pm > > I do

Re: Screen Rotation Windows

I'm going to guess via the Win32 API. See a Python example: https://stackoverflow.com/questions/42007272/screen-rotation-in-windows-with-python On Thu, Feb 10, 2022 at 8:07 AM Acki OL via beginners wrote: > Hello, > > is it possible to change the screen rotation by 90 degrees in windows 10, > e

Re: How to can develop a program

I didn't try to read and fully absorb what you've been saying. I see mention of PDFs... So if you're trying to work with PDF files, the first thing you can do is Google "Perl PDF extract information". If that comes up empty, or points you to external tools like an external module or command to h

Perl underreporting bytes to write?

consistently smaller than the real file size as reported by ls. I checked as many FAQs as I could, and found a reference to 'use bytes' vs 'no bytes'. I tried both, and it made no difference. I am sure this is something trivial, but really need help. Thanks Marco -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

simple (???) regex help

LSE for {..}>=7 . Thank for help Marco Centemeri -- **** Eng. MARCO CENTEMERI Telecommunication and Peripherals/Automotive Groups Audio & Automotive Division Automotive Business Unit Bosch Product Engineer STMicroelectronics S

getting e-mail from IMAP server help

help about net::pop3 and net::smtp but I understood nothing. Can Somebody help me? Thanks again Marco Centemeri -- Eng. MARCO CENTEMERI Telecommunication and Peripherals/Automotive Groups Audio & Automotive Divi

Re: getting e-mail from IMAP server help

ubject and if true move the attached file to a specified folder and then > delete the message. > I already read help about net::pop3 and net::smtp but I understood nothing. > > Can Somebody help me? > > Tha

Installing modules

ercome the problem? Thanks a lot Marco Centemeri -- **** Eng. MARCO CENTEMERI Telecommunication and Peripherals/Automotive Groups Audio & Automotive Division Automotive Business Unit Bosch Product Engineer STMi

Re: Installing modules

ction: pm_to_blib: $(TO_INST_PM) @$(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" \ "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Install \ -e "pm_to_blib(qw[ < > Hi Marco, > > 1) which dmake are you using, where d

Re: Installing modules

It WORKS!!! Thanks Again Marco Centemeri --- [EMAIL PROTECTED] wrote: > > From: Marco Centemeri <[EMAIL PROTECTED]> > > I'm trying to install on win2000 the following modules: > > > > IO::Stringy >

again a regex help needed

ready read perlquik and perlre but some points are still foggy! Thanks a lot Marco Centemeri -- **** Eng. MARCO CENTEMERI Telecommunication and Peripherals/Automotive Groups Audio & Automotive Division Automotive Bus

Please very help...

a line and then eventually, after some time, rewrite the same information always (#). I must: - Open file - find a particular line or character - apply a line modification - close the file So does anyone if exist a simple, very simple example that explain this approach. Many, many thanks list

Re: mail question

;; > > close MAIL; > > > > The above code works fine but instead of sending the text - "This is a > > test", I would like to send a file, textfile.txt. > > > > thanks. > > > > amy > > > > -- > > To unsubscribe, e-mail:

****POSIBLE SPAM**** Re: 2 -D arry in perl

ou want to do is read about Data Structures, check perldoc perldsc and recommended: perlreftut and perlref. Regards, -- Marco Antonio Manzo Bañuelos [EMAIL PROTECTED] http://www.unixmonkeys.com/amnesiac/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: Preserve order in a HoH

the prepeneded stuff.) > > I thought maybe someone might know that there is an easy way and which > section of the docs it resides. (I don't know much about tie'd > variables, blessed references etc. > > Bless each hash ref with an ordinal value? > > Thanks for your

Re: writing to CSV file

each file > which > can then be inserted into the database using the COPY command. > > Is the best way to do this?! > > How do I output my variables (accession, display_id, desc) to CSV file? > > ta > DBD::CSV might help you. Regards, -- Marco Antonio Manzo Ba

problem with dbi oracle blob

= $db->prepare($SEL); # Execute select $sth->execute(); my @row = $sth->fetchrow_array(); print XML "$row[0]\n"; # Disconnect from DB when finished $db->disconnect if defined($db); Any help is appreciated! [cid:blank29.gif] Marco van Kammen Applicatiebeheerder [cid:blank

RE: reg exp

Surely not perfect but this seems to work... $lin = "2011/05/25 07:24:58 -0700 PDT"; $lin =~ /(^\d+\/\d+\/\d+).*/; print "$1\n"; Marco van Kammen Applicatiebeheerder Mirabeau | Managed ServicesDr. C.J.K. van Aalstweg 8F 301, 1625 NV Hoorn +31(0)20-5950550 - www.

blocking sockets?

in the right direction is appreciated! [cid:blank29.gif] Marco van Kammen Applicatiebeheerder [cid:blank4823.gif] [cid:blank6784.gif] Mirabeau | Managed ServicesDr. C.J.K. van Aalstweg 8F 301, 1625 NV Hoorn +31(0)20-5950550 - www.mirabeau.nl<http://www.mirabeau.nl> [Mirabeau]

Date::Manip question

been looking at the module Date::Manip to get this going, but I can't seem to get it working. Any help in the right direction would be appreciated. With Kind Regards, [cid:blank1c63.gif] Marco van Kammen Applicatiebeheerder [cid:blank52fd.gif] [cid:blank4113.gif] Mirabeau | Managed Serv

RE: Date::Manip question

uot;12"; } else { $previous_month = $months[$mon -1]; $previous_month_num = $mon; } print "current month = $current_month\n"; print "current month number = $current_month_num\n"; print "previous month = $previous_month\n"; print "previous month number = $pr

handeling multiple tcp connections

to server.. Server keeps sending messages that are passed to the client. Client connects to 2nd source.. And needs to read/write to both the server and to the 2nd source. Any help in the right direction is appreciated. Marco van Kammen Applicatiebeheerder Mirabeau | MMSDr. C.J.K. va

Re: using subroutine from another file

nd pasting it to my code2.pl? > > __ > Do you Yahoo!? > Yahoo! SiteBuilder - Free, easy-to-use web site design software > http://sitebuilder.yahoo.com > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-ma

Re: Formatting

On Thu, 2002-06-20 at 22:42, Shishir K. Singh wrote: > Hi, hi > > I need to format a string in a fixed width field. The string may be less than the >length of the format, or may be greater. If less, then it should get padded with >spaces (left or right justified , like using - in sprintf), if

Fwd: Re: Please explain forking

On Thu, 2002-06-20 at 23:30, Langa Kentane wrote: > Greetings, > I wish to use the fork() function on one of my scripts. I would like more > clarity on the way it works. > > Take for instance the ff code: > > Sub mysub > { > while () > If ($_ eq "SCANME") > { > fo

Re: Debug and dereferrencing a hash

On Sat, 2002-06-22 at 13:53, Shawn wrote: > Hello all, > I am working on a script that I have several debug statements that try to tell me >what is contained in a hash referrence. While I am tailing the log file, the hashes >derefference (%$hash_ref) to n/n (ei: 1/8) instead of the actual ref

Re: Debug and dereferrencing a hash

On Sat, 2002-06-22 at 13:53, Shawn wrote: > Hello all, > I am working on a script that I have several debug statements that try to tell me >what is contained in a hash referrence. While I am tailing the log file, the hashes >derefference (%$hash_ref) to n/n (ei: 1/8) instead of the actual ref

Re: calculating disk space in perl

On Sat, 2002-06-22 at 20:34, J. Lundeen wrote: > Hello, > > I'm writing a control panel for my web hosting company. I need to be > able to calculate how much disk space a user is taking up in their home > directory and its sub-directories, so that I can compare against the > "allowed" disk space

Re: To Croak or Undef?

On Sat, 2002-06-22 at 21:27, drieux wrote: > > volks, > > I'm playing around with a little perl module and I came > across to different solutions - thought I would ask for > opinions as to which would be more Kosher - so why not > ask folks who might have an opinion: > > Plan A: The simple 'und

Re: Debug and dereferrencing a hash

On Sat, 2002-06-22 at 21:42, Shawn wrote: > >>> On Sat, 2002-06-22 at 13:53, Shawn wrote: > Is there a reason for this, and is there a way I can see what the > actuall values are? The values are passed just fine to the sub routines, > I just want my debug log to show that values

Re: To Croak or Undef?

On Sat, 2002-06-22 at 21:54, Marco Antonio Valenzuela Escárcega wrote: > On Sat, 2002-06-22 at 21:27, drieux wrote: > > > > volks, > > > > I'm playing around with a little perl module and I came > > across to different solutions - thought I would ask for

RE: if-statement and grep in one go

On Tue, 2002-06-25 at 03:28, David vd Geer Inhuur tbv IPlib wrote: > > Hello, > > Thanks for the solution Bob. > Changed some stuff and have 2 questions open. > > my $line; > my (%u, %g); > open(FILE, "< ${dir}/user.perm") or print "Failed opening file $!"; ## 1 > while ($line =

Re: real beginner's question (s|{(.*?)}|$1=~ tr///|xg)

ot;kdkdkiwiwdkdkdk {iwidkwidkw =~ tr/iw/JX/} kdkdkdwiwiwkdkdk > {kdkdikdkddk =~ tr/iw/JX/}" that's because you are substituting (.*?) for "$1 =~ tr/iw/JX/" as a string, if you want to evaluate it as code, you need to add an e modifier to s///, (and you can get rid of the x beca

Re: a real beginner's question, pt. 2

7;', map { $table{$_} || $_ } split //, $1).'}'; >exg; or you can try anything else, the point is that using the /e modifier with s/// you can use any piece of code that works for you as the replacement of the substitution Marco Antonio Valenzuela Escárcega On Mo

Re: script too slow?

maybe you should check this out: http://search.cpan.org/search?dist=RTF-Tokenizer http://search.cpan.org/search?dist=RTF-Parser On Sat, 2002-07-13 at 19:35, Paul Tremblay wrote: > I just finished my first version of a script that converts rtf to > xml and was wondering if I went about writing it

RE: Interpreter

. suerte! Marco Antonio Valenzuela Escárcega On Mon, 2002-07-22 at 11:16, Omar Shariff wrote: > Hi Timothy > > --- Timothy Johnson <[EMAIL PROTECTED]> escribió: > > > > Para clarificacion, estas buscando la programa que > > interpreta los scripts > > creado en

Re: Hi, newbie question

On Mon, 2002-07-22 at 14:41, Desmond Lee wrote: > Hi guys > > I'm trying to read a file, but it's just one massive line. I think that the > ^M is suppose to be an indication that that's wehre teh newline is suppose > to be. I've tried to replace ^M with a newline by executing something that i

RE: beginner

Hi, This one helped me to get started: http://oreilly.com/catalog/9780596520106/ Quickly followed by: http://oreilly.com/catalog/9780596000271/ Good Luck! - Marco van Kammen Springer Science+Business Media System Manager & Postmaster - van Godewijckstraat 30 | 3311 GX Office Number: 0

dcc chat example

get it to work. As soon as I connect the second socket and read/write to it the first socket (the one with the irc server session) blocks I will e-mail the code on request.. Thanks & Regards, - Marco van Kammen Springer Science+Business Media System Manager & Po

RE: dcc chat example

Absolutely no'one with a example or hint in the right direction??? :-( - Marco van Kammen Springer Science+Business Media System Manager & Postmaster - van Godewijckstraat 30 | 3311 GX Office Number: 05E21 Dordrecht | The Netherlands -   tel   +31(78)6576446 fax   +31(7

chat server example

are: .version .quit ***)\n"; } } else { # send the message to all users foreach ($sel->can_write) { print $_ "[".$_->peerhost."] ".$message."\n" } } } } } - Marco van Kammen Springer Sc

test contents of variable using alarm()

{ local $SIG{ALRM} = sub { die "alarm\n" }; alarm $timeout; unless $status_ehlo == "1"; alarm 0; }; if ($@) { print $client "Timed Out"; die unless $@ eq "alarm\n"; } else { Print $client "Hi!"; } Thanks!

RE: test contents of variable using alarm()

Original Message- From: Chas. Owens [mailto:chas.ow...@gmail.com] Sent: Friday, August 20, 2010 4:07 PM To: Kammen van, Marco, Springer SBM NL Cc: beginners@perl.org Subject: Re: test contents of variable using alarm() On Fri, Aug 20, 2010 at 04:34, Kammen van, Marco, Springer SBM NL

Reading from multiple sockets.

playcode;node_id=718 388;part=2> The first loop is being blocked? I only receive input/output from the second loop untill this one is closed again, then the first loop continues How can i get a continuous flow from both? I've read some bits about IO::Socket::Select, and have als

RE: Reading from multiple sockets.

Socket::Select, and have also been playing >with multiple threads, but i prefer the first option... Any help is very >appreciated! >Marco van Kammen >>You need to use select, or put a timeout on can_read on both sockets. >>See the following for how to use timeouts: >>h

RE: Reading from multiple sockets.

... > Does this change anything?? > > So Loop 1 is reading stuff that is happening on the server. > And Loop 2 is reading stuff that a direct client is sending. > > Marco! >>At this level, the only difference between a client and a server is the >>opening sequence. A

RE: Reading from multiple sockets.

>>From: Peter Scott [mailto:[EMAIL PROTECTED] >>Subject: Re: Reading from multiple sockets. >On Tue, 21 Oct 2008 12:53:53 +0200, Kammen van, Marco, Springer SBM NL >wrote: > I'm pretty new to working with sockets in perl, looked around for days > for a proper so

RE: Reading from multiple sockets.

-Original Message- From: John W. Krahn [mailto:[EMAIL PROTECTED] Sent: Wednesday, October 22, 2008 2:51 PM To: Perl Beginners Subject: Re: Reading from multiple sockets. Kammen van, Marco, Springer SBM NL wrote: > >>> From: Peter Scott [mailto:[EMAIL PROTECTED] >

RE: Reading from multiple sockets.

Kammen van, Marco, Springer SBM NL wrote: > >>> From: Peter Scott [mailto:[EMAIL PROTECTED] >>> Subject: Re: Reading from multiple sockets. > >> On Tue, 21 Oct 2008 12:53:53 +0200, Kammen van, Marco, Springer SBM NL >> wrote: >> I'm pretty new

RE: Reading from multiple sockets.

>>> From: Peter Scott [mailto:[EMAIL PROTECTED] >>> Subject: Re: Reading from multiple sockets. > >> On Tue, 21 Oct 2008 12:53:53 +0200, Kammen van, Marco, Springer SBM NL >> wrote: >> I'm pretty new to working with sockets in perl, looked around for

beginners@perl.org

gt;>Im struggling to get this right. >> >>TIA. >> >>Regards >>Brent Clark This should work if ($_ !~ /^We are at the Victoria \& Alfred Hotel./) { Marco -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

RE: Reading from multiple sockets.

IL PROTECTED] > >>> Subject: Re: Reading from multiple sockets. > > >> On Tue, 21 Oct 2008 12:53:53 +0200, Kammen van, Marco, Springer SBM > NL > >> wrote: > >> I'm pretty new to working with sockets in perl, looked around for > days > >> for a pro

RE: need help on perl script

Looking at all his posts below with the exact same format just different questions... Is this guy for real... or is this a spam bot?? - Marco van Kammen Springer Science+Business Media System Manager & Postmaster - van Godewijckstraat 30 | 3311 GX Office Number: 05E21 Dordrecht |

problem with random arrays

e ($count < 5) { ++$count; print "Test number $count\n"; wordgen(); } sub wordgen { my $number = int(rand(10)); $firstword = $word{$number}; print "firstword is $firstword\n"; } - Marco van Kammen Springer Science+Business Media System Manager &

testing tcp connection

host(); $clienthost = gethostbyaddr($client->peeraddr,AF_INET); # Some other stuff } Thanks for any tips! - Marco van Kammen Springer Science+Business Media System Manager & Postmaster - van Godewijckstraat 30 | 3311 GX Office Number: 05E21 Dordrecht | The Netherlands

RE: testing tcp connection

-Original Message- From: Thomas Bätzler [mailto:t.baetz...@bringe.com] Sent: Wednesday, September 01, 2010 8:57 AM To: beginners@perl.org Cc: Kammen van, Marco, Springer SBM NL Subject: AW: testing tcp connection >>Kammen van, Marco, Springer SBM NL asked: >> I have a

RE: What does -w means in #!/usr/bin/perl -w

>#!/usr/bin/perl -w >at the beginning. What does -w means here? >Is it perl specific or linux interpreter needs it? perl -w enables warnings. It's usefull for debugging purposes. Marco. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands

RE: Good books for System , Network Admin tasks with perl

areas where >perl is used namely: >System Administration http://oreilly.com/catalog/9781565926097 >Network Administration http://www.amazon.com/Network-Programming-Perl-Lincoln-Stein/dp/02016157 11 >Appreciate your response in this regard. >Thanks >Jatin Those 2 helped me all

regexp matching nummeric ranges

nd: 127.0.0.1 doesn't match as expected... Everything between 127.0.0.2 and 127.0.0.299 matches... 127.0.0.230 doesn't match... What am I doing wrong?? Thanks! - Marco van Kammen Springer Science+Business Media System Manager & Postmaster - van Godewijckstraat 30 | 3311 GX Offi

  1   2   >