Search Results

Search found 3411 results on 137 pages for 'perl lwp'.

Page 34/137 | < Previous Page | 30 31 32 33 34 35 36 37 38 39 40 41  | Next Page >

• How to validate hostname in perl?

  - by embedded

  Hi, I need to come up with a regular expression to validate hostname against RFC-1123 and RFC-952. Right now I'm using this: ^(?=.{1,255}$)[0-9A-Za-z](?:(?:[0-9A-Za-z]|\b-){0,61}[0-9A-Za-z])?(?:\.[0-9A-Za-z](?:(?:[0-9A-Za-z]|\b-){0,61}[0-9A-Za-z])?)*\.?$/ but this does not do the trick since it does not catch a. as invalid hostname. How do I…

  Read the article

• What perl function to use?

  - by user301087

  I'm setting something up to SSH out to several servers in 'batches'. I basically want to maintain 5 connections at a time, and when one finishes open up another (following an array of server IPs). I'm wondering for something like this should I be using fork()? If so, what logic can I use to ensure that the I maintain 5 children at a time?

  Read the article

• Perl : Reading messages in gmail account

  - by kiruthika

  Hi all, I have used the module Mail::Webmail::Gmail to read the new messages in my gmail account. I have written the following code for this purpose. use strict; use warnings; use Data::Dumper; use Mail::Webmail::Gmail; my $gmail = Mail::Webmail::Gmail->new( username => 'username', password => 'password', ); my $messages =…

  Read the article

• The equivalent of this Perl regex in PHP

  - by Jamie

  Hi all, What would be the equivalent in php of this regex in php: I.e. which function would do the same job. if (/^([a-z0-9-]+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)$/ and $1 ne "global" and $1 ne "") { print " <tr>\n"; print " <td>$1</td>\n"; print " <td>$2</td>\n"; …

  Read the article

• Comparing Two Arrays Using Perl

  - by Buzkie

  I have two arrays. I need to check and see if the elements of one appear in the other one. Is there a more efficient way to do it than nested loops? I have a few thousand elements in each and need to run the program frequently. -Alex

  Read the article

• how to ssh in perl script

  - by Salman

  Hi I want to SSH to a server and execute a simple command like "id" and get the output of it and store it to a file on my primary server. I do not privileges to install Net::SSH which would make my task very easy. please provide me a solution for this. I tried using backticks but I am not able to store the output on the machine from which…

  Read the article

• Saving a transliteration table in perl

  - by user246100

  I want to transliterate digits from 1 - 8 with 0 but not knowing the number at compile time. Since transliterations do not interpolate variables I'm doing this: @trs = (sub{die},sub{${$_[0]} =~ tr/[0,1]/[1,0]/},sub{${$_[0]} =~ tr/[0,2]/[2,0]/},sub{${$_[0]} =~ tr/[0,3]/[3,0]/},sub{${$_[0]} =~ tr/[0,4]/[4,0]/},sub{${$_[0]} =~…

  Read the article

• What do parentheses in a Perl regex do?

  - by iamrohitbanga

  I have been trying several regular expressions in the substitution operator: $str =~ s/^0+(.)/$1/; converts 0000 to 0 and 0001 to 1 $str =~ s/^0+./$1/; converts 0000 to empty string, 000100 to 00, 0001100 to 100. what difference is the parentheses making?

  Read the article

• Why is Perl's IO::Socket::SSL->new() failing?

  - by bstullkid

  When I execute this line: $client = IO::Socket::SSL->new("pilot-payflopro.paypal.com:443"); my IO::Socket::SSL::errstr() is configuration error failederror:00000000:lib(0):func(0):reason(0) my $! is 'invalid argument' Has anyone run into this before?

  Read the article

• reassembling http packets with perl and parsing it

  - by johnny2

  I am using net::pcap module to capture packets with this filter: dst $my_host and dst port 80 inside the net::pcap::loop i use the below callback function: net::pcap::loop($pcap_t,-1,\my_callback,'') where my_callback look like this : my_callback { my ($user_data, $header, $packet) = @_; # Strip ethernet IP and TCP…

  Read the article

• Implementing a command line in perl

  - by abubacker

  I used Term::shellUI module and almost every thing is working as expected but the issue is when I pressed ctrl+c I want to print "Please use ctrl+d to exit the shell" , for that I handle the signal but the message print only after I pressed the new line how to resolve this ! Thanks in advance !

  Read the article

• How can I identifying control characters in Perl?

  - by sganesh

  I want to implement the command line features like in a linux terminal. I saw this in ftp command also. If I press tab I need to list the commands. If I press control characters I need to get that characters based on that I will do some action. And if I give any commands it should execute. For this I tried with…

  Read the article

• Unix 'tr' or Perl-Oneliner for replacing 0123 into ACTG

  - by neversaint

  I have a file with such list: 100 101 102 103 What I want to do is to replace every 0 into A, 1 into C, 2 into G, 3 into T. Hence we hope to get CAA CAC CAG CAT

  Read the article

• Buggy Perl regular expression

  - by Tichomir Mitkov

  Hi, there I'm writing a program that has to get values from a file. In the file each line indicates an entity. Each entity has three values. For example: Value1 Value2 value3 I have a regular expresion to match them m/(.*?) (.*?) (.*?)/m; But it seems that the third value in never matched! The only way to…

  Read the article

• Common utility functions for Perl .t tests

  - by zedoo

  Hi I am getting started with Test::More, already have a few .t test scripts. Now I'd like to define a function that will only be used for the tests, but accross different .t files. Where's the best place to put such a function? Define another .t without any tests and require it where needed? (As a sidenote I use…

  Read the article

• Perl : localtime with print

  - by kiruthika

  Hi all, I have used the following statements to get the current time. print "$query executed successfully at ",localtime; print "$query executed successfully at ",(localtime); print "$query executed successfully at ".(localtime); Output executed successfully at 355516731103960 executed successfully…

  Read the article

• Perl - Using hashes in classes

  - by brydgesk

  I have a class with several variables, one of which is a hash (_runs): sub new { my ($class, $name) = @_; my $self = { _name => $name, ... _runs => (), _times => [], ... }; bless ($self, $class); return $self; } Now, all I'm trying to do is…

  Read the article

• Problem with the POSIX module

  - by planetp

  After moving my mod_perl site from Linux hosting to FreeBSD, I have this error in the logfile: Your vendor has not defined POSIX macro SIGRTMIN, used at ../../lib/POSIX.pm (autosplit into ../../lib/auto/POSIX/SigRt/_init.al) line 993\n The script just imports POSIX and utilizes some functions…

  Read the article

• mod_perl memory leak

  - by marghi

  Hello, I recently discovered that one of our sites has a memory leak in it, it's very strange because it happened all of the sudden. I've used GTop to measure the memory size per process and it tells me that the real value is somewhere around 65 MB (on the server) per request and and additional 5 MB…

  Read the article

• perl: generating permutations from a regular expression

  - by wibble

  I know you can generate all permutations from a list, using glob or Algorithm::Permute for example - but how do you generate all possible permutations from a regular expression? i want to do like: @perms = permute( "/\s[A-Z][0-9][0-9]/" ); sub permute( $regex ) { # code - put all permutations…

  Read the article

• When is Perl's scalar comma operator useful?

  - by eugene y

  Is there any reason to use a scalar comma operator anywhere other than in a for loop?

  Read the article

• Perl :Dumpxs in Data::Dumper

  - by kiruthika

  Hi all, I have went through the source code of Data::Dumper.In this package I didn't understand about Dumpxs.Actually what is the use of this Dumpxs. In net I have searched about this and I read that, it is equal to dump function and it is faster than dump. But I didn't understand well about…

  Read the article

• How can I compare arrays in Perl?

  - by devtech

  I have two arrays, @a and @b. I want to do a compare among the elements of the two arrays. my @a = qw"abc def efg ghy klm ghn"; my @b = qw"def ghy jgk lom com klm"; If any element matches then set a flag. Is there any simple way to do this?

  Read the article

• Any Google API in perl working with OAuth

  - by Julien

  Hello, I've looked at Net::Google, and 90% of the modules use AuthSub with a mandatory login/password. The right way for a web application to interact with Google applications on behalf of a customer is to use OAuth. That way, the authentication is done by Google, and the application does not…

  Read the article

• Reading a binary file in perl: Bad File Descriptor

  - by Magicked

  I'm trying to read a binary file 40 bytes at a time, then check to see if all those bytes are 0x00, and if so ignore them. If not, it will write them back out to another file (basically just cutting out large blocks of null bytes). This may not be the most efficient way to do this, but I'm…

  Read the article

< Previous Page | 30 31 32 33 34 35 36 37 38 39 40 41  | Next Page >