y.sawant
http://schuetzt-unsere-kinder.de/ds/fgxbilpnp.cxbawojcqjdkvkzfzipc -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: Need Regex for phone number
On Fri, Sep 24, 2010 at 12:50 AM, lotug erne...@ernestoreyes.com wrote:
I need regex code to identify 3108222400 phone number.
If all of your phone numbers are ten digit, then:
die $phone_num is not a ten digit number unless ($phone_num =~
m/^\d{10}$/);
Do you need to include any more criteria?
Regards,
Yogesh
Re: network program for copying file from a remote machine
On Thu, Feb 26, 2009 at 1:47 PM, Anirban Adhikary anirban.adhik...@gmail.com wrote: Dear list I want to write a program which can copy files from remote machine ( like scp) using perl network programming.Is it possible to create such program? how about using CPAN module Net::SCP - http://search.cpan.org/~ivan/Net-SCP-0.08/SCP.pm cheers yogesh -- -BEGIN GEEK CODE BLOCK- Version 1.0 GO d-@ s: a- C++$ UBL++$ P+++$ L+++$ E- W++ N+ o K w-- !O- !M- V- PS+@ PE++@ Y+ !PGP t 5 X R+++ tv b+ DI++ D G e++ h--- r+++ y+++ --END GEEK CODE BLOCK--
Re: Simplify a script which copies files
On Wed, Feb 25, 2009 at 6:14 PM, Lauri Nikkinen lauri.nikki...@iki.fiwrote: Hi, I wrote a script which copies files in directory to an another directory based on user input. Any suggestions to simplify or shorten this? I'm using Win XP. instead of accepting inputs from user, how about using command line arguements so that you execute script as: $ your_script.pl --source_dir /foo --dest_dir /doo --days 7 CPAN module Getopt::Long would be helpful in this case - http://search.cpan.org/~jv/Getopt-Long-2.37/lib/Getopt/Long.pm cheers yogesh -- -BEGIN GEEK CODE BLOCK- Version 1.0 GO d-@ s: a- C++$ UBL++$ P+++$ L+++$ E- W++ N+ o K w-- !O- !M- V- PS+@ PE++@ Y+ !PGP t 5 X R+++ tv b+ DI++ D G e++ h--- r+++ y+++ --END GEEK CODE BLOCK--
Re: disk performance or destructive testing
On Dec 17, 1:31 am, ben.pe...@gmail.com (Ben Perl) wrote: Does anyone know any perl module for validating or do some desctructive testing on disks on Linux platform? found a few constructive ones, but nothing that would be destructive. i doubt that you would find any at CPAN. check if any of these are helpful for you: Sys::Statistics::Linux::DiskStats Sys::Statistics::Linux::DiskUsage Filesys::Df cheers yogesh -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: poll
On Dec 12, 6:41 pm, [EMAIL PROTECTED] (Octavian Rasnita) wrote: Hello, I have searched on cpan.org but I couldn't find what I need. Do you know if there is a perl module that can create questionnaires for polls? I would like to use a module that could create questionnaires with more questions, that can split them in more pages (like a wizard) as I specify, and that could use more type of controls, not only radio buttons, but also combo boxes, list boxes, checkboxes, as I specify. Do you know if there is such a module, or I will need to create the entire code manually? Thank you. Octavian Did you check WWW::Poll - http://search.cpan.org/~mgammon/WWW-Poll-0.01/Poll.pm ? Yogesh -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: How to check the file is modified or not?
On Oct 29, 4:09 pm, [EMAIL PROTECTED] (Sivasakthi) wrote: Hi All, How to check the file is modified or not? Thanks, Siva 1. get the file's modify time using stat function 2. then compare that time with whatever time-date you have lookout stat in `perldoc perlfunc` or here's the link: http://perldoc.perl.org/functions/stat.html cheers yogesh -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: writing to file
Vahid wrote:
Hi all,
I have the following code to sort UNIX's password file, it works fine
but can only display on stdout. How can I make it write the output to
a file?
Thanks,
#!/bin/perl -w
#
use strict;
open(myFILE, '|-','awk','-F:','s[$1]++==0' ) or die $!;
open(passwdFH, passwd);
while (passwdFH) { print myFILE; }
close(myFILE);
here's one way (untested):
open (NEW_FILE, /foo/bar) or die Failed to write to /foo/bar :
$! \n;
open (passwdFH, passwd);
while (passwdFH) {
print NEW_FILE $_;
}
close (passwdFH);
close (NEW_FILE);
cheers
Yogesh
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
