time-out coding in perl Post: 31488

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

perl time format

Hay guys, I used time::local module. But i can't get my proper answer from this. I want to extract two time for tomorrow start time and end time. In my code i just hard coded this. But it's not running for every day na. I need to create these time from any function or module. my...

2. Shell Programming and Scripting

how to change time hr:mm to mm:hr in perl

Hi I want to match time hr:mm and change to mm:hr please let me know how to do that in perl

3. Shell Programming and Scripting

Perl Time Difference

I having probelm in time difference output using Delta_YMDHMS, using below start date and enddate I get -30days. Any idea how to fix this issue. output : 0,1,-30, 0,0,0 Thanks, Bataf use POSIX qw/strftime/; use Date::Calc qw(Delta_YMDHMS); use Time::Local; $start_date =...

4. Shell Programming and Scripting

rounding time in perl

Is there a way I can round time in perl to the nearest five minutes? For example if I have log giving the following time stamps 23,52,30 it would rounded up to 23,55,00 and 23,50,01 would be rounded to 23,50,00

5. Shell Programming and Scripting

Time subtraction using perl

var=50 perl -le "print scalar localtime (time() - "$var"*60);" The above does subtraction of time,but i need the time format to be date +%Y%m%d%H%M%S. How can i achive this

6. Shell Programming and Scripting

Date and Time in PERL

Hi, I want to get the current date and time and subtract 1 day to get to the previous day? I see timelocal( ) and (time) etc. How do I code this in PERL to get the previous day? Thanks Nurani

7. UNIX for Dummies Questions & Answers

How to get the next time stamp in perl?

Hi, I have to find the next time stamp in perl. Here is the code. @time = loaltime(time); print "\n Present time: $time:$time:$time \n"; For example if the time is: "12:55:02" after some process the time becomes 1:00:00. How do i check when it becomes 00:00 i.e from "12:55:02...

8. Shell Programming and Scripting

Getting Time in MilliSeconds with Perl

I use something like this in perl to get the date and time: use Time::localtime; use Time::gmtime; $tm = gmtime; $time_str = sprintf "%04d-%02d-%02d %02d:%02d:%02d", $tm->year + 1900, $tm->mon + 1, $tm->mday, $tm->hour, $tm->min, $tm->sec; It gives me something like this: 2010-08-26...

9. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ?

10. Shell Programming and Scripting

Help required between "wall time" and Elapsed time in perl.

Hi, I have having a great confusion in under standing the below terms. a) "wall time" (time according the the clock on the wall vs. cpu time spent executing it) what exactly it means? For example: wall time cpu time line:text 4.22404 24.186 if(some junk condition) ...

LEARN ABOUT CENTOS

perljp

PERLJP(1)						 Perl Programmers Reference Guide						 PERLJP(1)

NAME

       perljp - XXXXXXX Perl XXXXXXX

XXX

       Perl XXXXXXXXXXXXXXXXXXXXXX!

       Perl 5.8.0 XXXXXXXXXUnicodeXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXiXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CJK
       (XXXXXXXXXXXXXXXXXXXXXXXXXXXXX)XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXUnicodeXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXiXXXXXXXXXXXXXXXXXXXXiXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXiXXXuXXXXXXXXXXXXXXXXXXXXXOSXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX(PCXXXXXXXXXMacintosh)XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

       Perl XXXXXXX Unicode XXXXXXXXXXXXXXXXXXPerl XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXiXXXXXXXXXXXX Unicode
       XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
       Encode XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXUnicode XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

       XXXXXXXXX Encode XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

	 7bit-jis      AdobeStandardEncoding AdobeSymbol       AdobeZdingbat
	 ascii		   big5 	     big5-hkscs        cp1006
	 cp1026 	   cp1047	     cp1250	       cp1251
	 cp1252 	   cp1253	     cp1254	       cp1255
	 cp1256 	   cp1257	     cp1258	       cp37
	 cp424		   cp437	     cp500	       cp737
	 cp775		   cp850	     cp852	       cp855
	 cp856		   cp857	     cp860	       cp861
	 cp862		   cp863	     cp864	       cp865
	 cp866		   cp869	     cp874	       cp875
	 cp932		   cp936	     cp949	       cp950
	 dingbats	   euc-cn	     euc-jp	       euc-kr
	 gb12345-raw	   gb2312-raw	     gsm0338	       hp-roman8
	 hz		   iso-2022-jp	     iso-2022-jp-1     iso-8859-1
	 iso-8859-10	   iso-8859-11	     iso-8859-13       iso-8859-14
	 iso-8859-15	   iso-8859-16	     iso-8859-2        iso-8859-3
	 iso-8859-4	   iso-8859-5	     iso-8859-6        iso-8859-7
	 iso-8859-8	   iso-8859-9	     iso-ir-165        jis0201-raw
	 jis0208-raw	   jis0212-raw	     johab	       koi8-f
	 koi8-r 	   koi8-u	     ksc5601-raw       MacArabic
	 MacCentralEurRoman  MacChineseSimp    MacChineseTrad	 MacCroatian
	 MacCyrillic	   MacDingbats	     MacFarsi	       MacGreek
	 MacHebrew	   MacIcelandic      MacJapanese       MacKorean
	 MacRoman	   MacRomanian	     MacRumanian       MacSami
	 MacSymbol	   MacThai	     MacTurkish        MacUkrainian
	 nextstep	   posix-bc	     shiftjis	       symbol
	 UCS-2BE	   UCS-2LE	     UTF-16	       UTF-16BE
	 UTF-16LE	   UTF-32	     UTF-32BE	       UTF-32LE
	 utf8		   viscii

       (XXX114XXXX)

       XXXXXXXXXXXXXXXXXXXXXXFOOXXXXXXXXXXXXXXUTF-8XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

	   perl -Mencoding=FOO,STDOUT,utf8 -pe1 < file.FOO > file.utf8

       XXXXXXXXPerlXXXXXXXXXXXXXXXPerlXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXpiconvXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

	  piconv -f FOO -t utf8 < file.FOO > file.utf8
	  piconv -f utf8 -t FOO < file.utf8 > file.FOO

   About (jcode.pl|Jcode.pm|JPerl)
       5.8XXXXXXXXXXXXXXXXXXXXXXXXEUC-JPXXXXXXXXXXXXXXXXXiXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXJcode.pmXXX(
       http://openlab.ring.gr.jp/Jcode/
       )XXXperl4XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXjcode.plXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXCGIXXXXXXXXXXn~XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

       5.005XXXXXXXPerlXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXiXXXXXXXXXJperlXXXXXXXXXXXXXXXXXXX(
       http://homepage2.nifty.com/kipp/perl/jperl/index.html )XXXXXXXXXXXMac OS
       9.x/ClassicXXXXXXPerlXXXMacPerlXXXXXXXXXXXXXXXMacJPerlXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX( http://habilis.net/macjperl/
       ).XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXEUC-JPXXXXXXXXXShift_JISXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

       Perl5.8XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXPerlXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX114XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXCPANXXXXiXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

       o   XXXXXXX

	   XXXXXXXXXXXXXXXXXXXXXXShift_JISXXXXXXXXXXEUC-JPXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

	     # jcode.pl
	     require "jcode.pl";
	     while(<>){
	       jcode::convert(*_, 'euc', 'sjis');
	       print;
	     }
	     # Jcode.pm
	     use Jcode;
	     while(<>){
		   print Jcode->new($_, 'sjis')->euc;
	     }
	     # Perl 5.8
	     use Encode;
	     while(<>){
	       from_to($_, 'shiftjis', 'euc-jp');
	       print;
	     }
	     # Perl 5.8 - encoding XXXXXn~XXXXXXX
	     use encoding 'euc-jp', STDIN => 'shiftjis';
	     while(<>){
		   print;
	     }

       o   Jperl XXXXXXXXXXXXXXXXX

	    XXXXXXXXXXXX"shebang"XXXXXXXXXXXXXXXXXXXXXXXXJperlXXXXXXscriptXXXXXXXXXXXXiXXXXXXXXXXXXXXXXn~XXXXXXXXXXXXXXXXXXXXXXXXXXXX

	      #!/path/to/jperl
	      XXX
	      #!/path/to/perl -Mencoding=euc-jp

	    XXXXXXXXXX perldoc encoding XXXXXXXXXXXXXXXXXXXXXXXXXXXX

   XXXXXXXXXXXXXXX
       PerlXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXPerlXXXXXXXXXXXXUnicodeXXXXXXXXXXXXXXXXXXXXXXEncodeXXXXXXXXXXXXXXXXXXXXXXXiXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXoXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

	 perldoc perlunicode # PerlXXXUnicodeXXXXXXXXXXXXXX
	 perldoc Encode      # EncodeXXXXXXXXXXXXXXXXXXX
	 perldoc Encode::JP  # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

   PerlXXXXXXXXXXXXXX URL
       <http://www.perl.com/>
	   Perl XXXXXXXXXXXXXXXX (O'Reilly and Associates)

       <http://www.cpan.org/>
	   CPAN (Comprehensive Perl Archive Network)

       <http://lists.perl.org/>
	   Perl XXXXXXXXXXXXXXXXXXXX

   PerlXXXXXXXXXXXXXXXX URL
       <http://www.oreilly.com.tw/>
	   O'Reilly XXXXPerlXXXXXXXXX(XXXXXXXXXXXX)

       <http://www.oreilly.com.cn/>
	   O'Reilly XXXXPerlXXXXXXXXX(XXXXXXXXXXXX)

       <http://www.oreilly.co.jp/catalog/>
	   XXXXiXXXXXXXXXXPerlXXXXXXXXX(XXXXXXX)

   Perl XXXXXXXXXXXXXXXXX
       <http://www.pm.org/groups/asia.html>

   UnicodeXXXXXXXURL
       <http://www.unicode.org/>
	   Unicode XXXXXXXXXXXXXXX (UnicodeXXXXXXXXXXXXXXXX)

       <http://www.cl.cam.ac.uk/%7Emgk25/unicode.html>
	   UTF-8 and Unicode FAQ for Unix/Linux

       http://wiki.kldp.org/Translations/html/UTF8-Unicode-KLDP/UTF8-Unicode-KLDP.html <http://wiki.kldp.org/Translations/html/UTF8-Unicode-
       KLDP/UTF8-Unicode-KLDP.html>
	   UTF-8 and Unicode FAQ for Unix/Linux (XXXXXXXXXXX)

AUTHORS

       Jarkko Hietaniemi <jhi@iki.fi> Dan Kogai (XXXXXXX) <dankogai@dan.co.jp>

perl v5.16.3							    2013-03-04								 PERLJP(1)