LogIn E-mail
¼³°èÀ̾߱â
file2date.pl
# 110 JMJS    24.6.1 12:08

#!/usr/bin/perl
#use Time::localtime;
my ($ss,$mm,$hh,$dd,$MM,$YY)=localtime;
print sprintf("%02d.%02d.%02d_%02d:%02d:%02d\n",
               $YY-100,$MM+1,$dd,$hh,$mm,$ss);
#-----------------------------------------------------#
#!/usr/local/bin/perl
foreach $f (`ls *.*`) {
        chomp($f);
        $g=$f;
        $g=~s/^[\.\sa-zA-Z_-]+//g;
        $g=~s/[\.\sa-zA-Z_-]+$//g;
        @s=split(/[\.\sa-zA-Z_-]+/,$g);
        @t=();
        foreach $a (@s) {
                $l=length($a);
                @b=split(//,$a);
                if($l==2) { push(@t,$a);}
                elsif($l==4) { push(@t,"$b[2]$b[3]");}
                elsif($l==6) { push(@t,"$b[0]$b[1]","$b[2]$b[3]","$b[4]$b[5]");}
                elsif($l==8) { push(@t,"$b[2]$b[3]","$b[4]$b[5]","$b[6]$b[7]");}
                else { push(@t,"a");}
        }
        ($yy,$mm,$dd)=();
        while(@t) {
                if($yy) {}
                elsif(($t[0]<17)||($t[0]>25)) {}
                elsif(($t[1]<1)||($t[1]>12)) {}
                elsif(($t[2]<1)||($t[2]>31)) {}
                else {
                        $yy=$t[0];
                        $mm=$t[1];
                        $dd=$t[2];
                }
                shift(@t);
        }
        if($yy) {
                $dir="20${yy}_${mm}_${dd}";
                if( ! -d $dir) {
                        print `mkdir $dir`;
                }
                $g=$f;
                $g=~s/ /_/g;
                $g=~s/[()]/_/g;
                print "mv \"$f\" $dir/$g\n";
        }
}

°Ô½Ã¹°: 115 °Ç, ÇöÀç: 1 / 1 ÂÊ
¹øÈ£ Á¦       ¸ñ ÀÛ¼ºÀÚ µî·ÏÀÏ ¹æ¹®
115  perl format JMJS 24.6.22 218
114  perl -p -i -e s/abc/def/g JMJS 24.3.26 223
113  Deleting from a Hash JMJS 24.1.23 241
112  yaml file Àбâ JMJS 23.11.30 275
111  alzipcon JMJS 22.11.26 333
110  file2date.pl JMJS 24.6.1 449
109  UTF-8, EUC-KR JMJS 19.12.15 413
108  wget.pl LWP Simple get JMJS 19.9.17 442
107  X JMJS 19.9.17 432
106  X JMJS 19.9.17 438
105  X JMJS 19.9.17 429
104  X JMJS 19.9.17 432
103  X JMJS 19.9.17 428
102  X JMJS 19.9.17 425
101  gnome-terminal JMJS 25.7.3 433
100  jsame.pl JMJS 09.5.21 1951
99  jos.pl JMJS 08.11.29 1691
98  jmngr.pl - jmjspro manager JMJS 08.11.29 1724
97  vhdl.pm JMJS 08.11.29 1698
96  jreg.pl JMJS 08.11.29 1675
95  jtree.pm JMJS 08.11.29 1760
94  w2c.pl JMJS 08.11.29 1715
93  jdread.pl JMJS 08.11.29 1490
92  ffile.zip ffilediff.pl JMJS 09.4.24 1543
91  rgb2ycbcr.pl JMJS 10.5.12 1855
90  proview.pl JMJS 08.11.29 1913
89  smi_shift.pl JMJS 10.10.3 1520
88  srt2smi.pl srtshift.pl JMJS 18.7.14 1720
87  Perl CGI Input Test, getenv.cgi JMJS 18.11.21 1409
86  hash JMJS 24.6.22 1667
85  tr a-z A-Z ġȯ , ´ë¼Ò¹®ÀÚ º¯È¯ , ¹®ÀÚ¿­ Á¶°Ç , ... JMJS 24.6.22 1465
84  JARRAY->jfunc JMJS 08.10.2 1434
83  ¼öÄ¡ÇÔ¼ö - ... JMJS 09.5.7 1909
82  ¿ªÇà·Ä3x3 JMJS 09.5.7 1953
81  hex2int.pl JMJS 10.9.12 2683
80  stat - file status º¸±â JMJS 07.12.16 1540
79  Perl Tip JMJS 24.6.22 2703
78  SMI file sync delay JMJS 07.7.18 1646
77  rmword.pl JMJS 07.6.18 1564
76  pack unpack JMJS 24.6.22 1469
75  [Perl]read_dir.pl JMJS 07.2.22 1749
74  [Perl]jtab2char - tab¹®ÀÚ¸¦ ƯÁ¤ char·Î ¹Ù²ãÁÖ±â JMJS 07.2.22 1723
73  Perl ¼ýÀÚ Sorting JMJS 11.5.17 1804
72  [CGI]GET and POST JMJS 06.11.20 3462
71  Perl Grammer JMJS 06.9.4 3043
70  Ç¥ÁØ ¸ðµâ JMJS 06.8.10 1940
69  Getopt::Long example JMJS 06.8.10 2134
68  array of array JMJS 06.4.22 1547
67  [HTML]Å×ÀÌºí ¹è°æ¿¡ ±×¸²³Ö±â JMJS 06.3.8 1633
66  l2w.pm - line to word JMJS 08.12.1 1624
65  make_random_chars JMJS 05.8.10 1460
64  mail º¸³»´Â script JMJS 05.3.23 1437
63  ½ÇÇàÆÄÀÏÀ» ½ÇÇà½Ã۰í Ç¥ÁØ¿¡·¯ Àбâ JMJS 09.2.25 1439
62  ÆË¾÷â(°øÁöâ)¶ç¿ì±â Jinsung 03.12.16 2535
61  print <<ENDLINE JMJS 03.12.5 1537
60  [HTML]Target JMJS 03.5.21 1566
59  [Perl]jutil.pm JMJS 03.5.3 1818
58  [Perl]jdiff.pl JMJS 02.6.6 1711
57  [Perl]cfilter.pm - commant filter JMJS 02.1.31 1754
56  [HTML]ÀÚµ¿À¸·Î ´Ù¸¥ ÆäÀÌÁö À̵¿ JMJS 02.1.19 1576
55  STDIN file open glob -w warning JMJS 24.6.22 1615
54  opendir , readdir , closedir JMJS 24.6.22 1623
53  rand_diff JMJS 01.10.23 1513
52  vcd2v.pl JMJS 15.8.25 1596
51  file upload JMJS 24.6.22 1533
50  umask(070) <- chmod o-rwx Áø¼º 01.3.16 1686
49  head2index Áø¼º 01.3.15 1380
48  grep.pl JMJS 11.1.20 1518
47  chr(13) = \M Áø¼º 01.3.15 1380
46  stty JMJS 01.3.12 1491
45  des.pl JMJS 01.3.8 1460
44  chr_plus.pl JMJS 01.3.8 1469
43  get passwd in unix JMJS 19.8.18 1314
42  unsort JMJS 19.9.10 1551
41  read from website web JMJS 19.5.15 1360
40  vec JMJS 01.3.8 1618
39  chomp $_ @_ say defined use 5.010 state grep any ... JMJS 18.10.27 1537
38  [Perl Tk] µµ½ºÃ¢ ¾øÀÌ, ÆÞ Tk ½ºÅ©¸³Æ® ½ÇÇàÇϱâ; ... JMJS 17.9.30 1496
37  @bs = sort {$a <=> $b} @as; JMJS 17.7.12 1564
36  if ( -e -z -s -f -d -T -B -M ) JMJS 16.3.10 1662
35  mkmm.pl - make freemind JMJS 12.5.22 1610
34  perl -pi.orig -e "s/\bu_(\w+_t)\b/u$1/g" *.c JMJS 11.8.26 1592
33  .xls output csv ÆÄÀÏ¿¡ \n "°¡ ÀÖÀ»¶§ JMJS 11.4.13 1484
32  jdcat.pl juncat.pl JMJS 11.2.24 1634
31  print chr(ord('a')); JMJS 01.3.8 1538
30  require "/user/home/jin1/jin1.pm"; JMJS 00.11.28 1482
29  for(my $i=0; $i < @abc; $i ++) {} JMJS 00.11.15 1564
28  remove blank $abc =~ s/[\s]+//g; JMJS 00.11.15 1510
27  array and for JMJS 00.11.14 1355
26  È¨ÆäÀÌÁö ÀÚµ¿ À̵¿ JMJS 00.10.28 1411
25  html¿¡¼­ ¾²ÀÌ´Â ±âȣǥ½Ã¹æ¹ý JMJS 00.9.30 1364
24  ¹è¿­ÀÇ ¹üÀ§ ¿¬»êÀÚ JMJS 00.9.20 1665
23  for(1..3) { print "$_";} JMJS 09.4.24 1337
22  package JMJS 24.6.22 1418
21  ÁÙ¿¡¼­ ÇѱÛÀÚ °íÄ¡±â JMJS 00.8.7 1461
20  hotkey function by getc JMJS 00.7.21 1569
19  read, sysread, syswrite JMJS 00.7.21 2380
18  crypt JMJS 00.7.13 1677
17  csv2gan.pl JMJS 11.4.4 1689
16  hexa JMJS 24.6.18 1515
15  file in out.pl JMJS 00.7.5 1698
14  ARGV JMJS 00.7.5 1525
13  jtime.pm - localtime, timelocal JMJS 09.4.9 2054
12  @INC JMJS 00.7.5 1881
11  $#myarray JMJS 00.7.5 1639
10  Hash of Array JMJS 00.7.5 1461
9  package JARRAY JHASH JMJS 00.7.4 1700
8  foreach, while each, dos2unix.pl, next last JMJS 09.4.24 1683
7  base64 enc dec binary JMJS 25.6.30 1485
6  file lock JMJS 00.7.4 1599
5  gettime JMJS 00.7.4 1571
4  [Perl]jcdread.pl JMJS 00.7.4 1654
3  [Perl]jdread.pl JMJS 00.7.4 1552
2  Monti Hall problem JMJS 24.6.27 1548
1  DESTROY JMJS 09.7.20 1490
[1]