1
2
3
4
5
6
7
8
9
use Time::Local;
use File::stat;
use File::Copy 'copy';
 
my ( $BASEDIR ) = "/home/denapoli";
my ( $EPOCH_NOW_TIME ) = time();       # seconds since the UNIX epoch
my ( $SECONDS_IN_DAY ) = 24*60*60;     # seconds in a day
my ( $TRIMDAYS ) = 90;                # ITCS104 required minimum retention period
my ( $sudolog ) = "sudo.log";
 ...

1
2
3
4
5
6
7
8
9
use Time::Local;
use File::stat;
use File::Copy 'copy';
 
my ( BASEDIR ) = "/home/denapoli"
my ( $EPOCH_NOW_TIME ) = time();       # seconds since the UNIX epoch
my ( $SECONDS_IN_DAY ) = 24*60*60;     # seconds in a day
my ( $TRIMDAYS ) = 90;                # ITCS104 required minimum retention period
my ( $sudolog ) = "sudo.log";
 ...

1
2
$abc=<STDIN>;
print $abc;

1
2
3
4
print "Jai Ho\n";
$abc=<STDIN>;
 
print "$abc";

1
2
3
4
5
6
7
use Time::localtime;
 
my $t;
 
$t = Time::localtime->new;
 
print "$t\n";

1
2
3
4
5
6
7
use Time::localtime;
 
my $t;
 
$t = localtime->new;
 
print "$t\n";

1
2
3
4
5
6
7
use Time::localtime;
 
my $t;
 
$t = localtime(time);
 
print "$t\n";

1
2
3
4
5
6
7
use Time::localtime;
 
my $t;
 
$t = localtime();
 
print "$t\n";

1
print 'localtime()';

1
print "Hello World\n";

1
print $_, "\n" for 1..10;

1
2
3
4
5
6
7
8
9
 
''=~   ('('    ."\?".    ('{').(   '`'|'%'      ).('['^
'-')   .''.  +(   '`'|   '!'  ).(  '`'  |((    ((   ',')
))))   .'"' .+(   '['^   '+'  ).(  '['   ^((  ')'   ))).
('`'   |')'       ).+(   '`'|'.'   ).(  '['         ^'/'
).('{'^'[')    .'\\'.+   '"'.('`'  ^'(').(       '`'|'!'
).+(   '`'|  '"') .''.   (((  '[') )^+  ')'    ).+( '`'|
'!')   .''. ('`'  ^'('   ).(   '`' |((   '!'  ))).  ('`'
|'"'   ).+( '['^ ')').   ','   .+( '{'    ^(( '[') )).+(
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl-wT
 
use 5.006;
use strict;
use warnings;
 
print ("Enter your age,\n");
 my $ age = <STDIN>;
  if ($ age <25){print "too yong!,\n";}
 ...

1
2
3
 
print "are you a man? (y/n)";
$man = <STDIN>;

1
2
3
#!/usr/bin/perl
 
while (($_=<>)!=42) {print $_;}

1
2
3
4
5
6
7
8
9
#! /usr/bin/perl
 
use warnings;
 
use strict;
 
 
 
print "Programmer: Serafim Kotsogiannis & Kwai Choi", "\n";
 ...

1
print scalar localtime(1314851400)

1
print scalar localtime(1314851385)

1
print scalar localtime(1335371100)

1
2
print scalar localtime(1335371100)
print "\n"

1
print scalar localtime(1335371100)

1
2
3
4
5
6
7
8
#root
print scalar localtime(1335371100)"\n";
 
#oracle
print scalar localtime(1335463622);
 
#oas
print scalar localtime(1333318529);

1
2
3
4
5
6
7
8
#root
print scalar localtime(1335371100)\n;
 
#oracle
print scalar localtime(1335463622);
 
#oas
print scalar localtime(1333318529);

1
2
3
4
5
6
7
8
#root
print scalar localtime(1335371100)/n;
 
#oracle
print scalar localtime(1335463622);
 
#oas
print scalar localtime(1333318529);

1
2
3
4
5
6
7
8
#root
print scalar localtime(1335371100);
 
#oracle
print scalar localtime(1335463622);
 
#oas
print scalar localtime(1333318529);

1
2
3
4
5
6
7
8
#root
print scalar localtime(1335371100)
 
#oracle
print scalar localtime(1335463622)
 
#oas
print scalar localtime(1333318529)

1
print scalar localtime(1202839981)

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
 
my $number = 2;
my $counter = 0;
my $var = 1;
 
while ($counter != 1000) {
 ...

1
2
3
4
5
6
7
8
9
そゆ > stop (05/17(Thu) 00:03 211.134.218.249
のり > ですね。 (05/17(Thu) 00:03 182.168.208.180
りょーちゃ > もう日付変わった。。。 (05/17(Thu) 00:03 126.61.203.113
りょーちゃ > もう日付変わった。。。 (05/17(Thu) 00:03 126.61.203.113
 管理人 > NUNO さん、またきておくれやすぅ。 Mozilla/5.0 (compatible;
NUNO > おやすみーまたあした (05/17(Thu) 00:02 125.202.238.6
のり > おつかれさまです! > ぬの (05/17(Thu)
のり > りょーかい。 (05/17(Thu) 00:02 182.168.208.180
NUNO > そろそろ寝るかな (05/17(Thu) 00:01 125.202.238.6
 ...

1
2
3
4
5
6
#!/usr/bin/perl
 
my $time = time;
my ($sec, $min, $hour, $day,$month,$year) = (localtime($time))[0,1,2,3,4,5];
$year = $year + 1900;
print $month.":".$day.":".$year.":".$hour.":".$min.":".$sec."\n";