LogIn E-mail
¼³°èÀ̾߱â
file upload
# 51 JMJS    24.6.22 12:06

CGI.pm CGI ¸ðµâÀ» ÀÌ¿ëÇØ ÆÄÀÏÀ» ¾÷·Îµå ÇÏ´Â ÇÙ½É ÄÚµå´Â 5ÁÙ ¹Û¿¡ µÇÁö ¾Ê½À´Ï´Ù.

#!/usr/bin/perl -w
use CGI;
$q = CGI->new();

...
...
$file = $q->param('uploaded_file');
open(FILE, ">myfile");
while(<$file>){ print FILE $_; }
close($file);
close(FILE);
...
...


$upfile = $FORM{'file_name'};
@a = split(/\"/,$real_file);
@b = split(/\\/,$a[3]);
$t = @b;
$org_name = ($b[$t-1]);
$filename = "$main_dir/files/".$org_name;
if(-e $filename){
        $err = exist;
        &error;
}
open(FILE, ">$filename") || exit(1);
binmode FILE;
print FILE $upfile;
close FILE;

°Ô½Ã¹°: 115 °Ç, ÇöÀç: 1 / 1 ÂÊ
¹øÈ£ Á¦       ¸ñ ÀÛ¼ºÀÚ µî·ÏÀÏ ¹æ¹®
115  perl format JMJS 24.6.22 153
114  perl -p -i -e s/abc/def/g JMJS 24.3.26 169
113  Deleting from a Hash JMJS 24.1.23 180
112  yaml file Àбâ JMJS 23.11.30 221
111  alzipcon JMJS 22.11.26 280
110  file2date.pl JMJS 24.6.1 395
109  UTF-8, EUC-KR JMJS 19.12.15 367
108  wget.pl LWP Simple get JMJS 19.9.17 395
107  X JMJS 19.9.17 385
106  X JMJS 19.9.17 391
105  X JMJS 19.9.17 383
104  X JMJS 19.9.17 387
103  X JMJS 19.9.17 386
102  X JMJS 19.9.17 385
101  X JMJS 19.9.17 387
100  jsame.pl JMJS 09.5.21 1905
99  jos.pl JMJS 08.11.29 1642
98  jmngr.pl - jmjspro manager JMJS 08.11.29 1683
97  vhdl.pm JMJS 08.11.29 1647
96  jreg.pl JMJS 08.11.29 1635
95  jtree.pm JMJS 08.11.29 1714
94  w2c.pl JMJS 08.11.29 1676
93  jdread.pl JMJS 08.11.29 1453
92  ffile.zip ffilediff.pl JMJS 09.4.24 1507
91  rgb2ycbcr.pl JMJS 10.5.12 1810
90  proview.pl JMJS 08.11.29 1869
89  smi_shift.pl JMJS 10.10.3 1475
88  srt2smi.pl srtshift.pl JMJS 18.7.14 1679
87  Perl CGI Input Test, getenv.cgi JMJS 18.11.21 1361
86  hash JMJS 24.6.22 1625
85  tr a-z A-Z ġȯ , ´ë¼Ò¹®ÀÚ º¯È¯ , ¹®ÀÚ¿­ Á¶°Ç , ... JMJS 24.6.22 1426
84  JARRAY->jfunc JMJS 08.10.2 1394
83  ¼öÄ¡ÇÔ¼ö - ... JMJS 09.5.7 1866
82  ¿ªÇà·Ä3x3 JMJS 09.5.7 1912
81  hex2int.pl JMJS 10.9.12 2638
80  stat - file status º¸±â JMJS 07.12.16 1502
79  Perl Tip JMJS 24.6.22 2656
78  SMI file sync delay JMJS 07.7.18 1607
77  rmword.pl JMJS 07.6.18 1524
76  pack unpack JMJS 24.6.22 1426
75  [Perl]read_dir.pl JMJS 07.2.22 1707
74  [Perl]jtab2char - tab¹®ÀÚ¸¦ ƯÁ¤ char·Î ¹Ù²ãÁÖ±â JMJS 07.2.22 1681
73  Perl ¼ýÀÚ Sorting JMJS 11.5.17 1763
72  [CGI]GET and POST JMJS 06.11.20 3418
71  Perl Grammer JMJS 06.9.4 3002
70  Ç¥ÁØ ¸ðµâ JMJS 06.8.10 1895
69  Getopt::Long example JMJS 06.8.10 2091
68  array of array JMJS 06.4.22 1505
67  [HTML]Å×ÀÌºí ¹è°æ¿¡ ±×¸²³Ö±â JMJS 06.3.8 1592
66  l2w.pm - line to word JMJS 08.12.1 1580
65  make_random_chars JMJS 05.8.10 1425
64  mail º¸³»´Â script JMJS 05.3.23 1397
63  ½ÇÇàÆÄÀÏÀ» ½ÇÇà½Ã۰í Ç¥ÁØ¿¡·¯ Àбâ JMJS 09.2.25 1398
62  ÆË¾÷â(°øÁöâ)¶ç¿ì±â Jinsung 03.12.16 2500
61  print <<ENDLINE JMJS 03.12.5 1496
60  [HTML]Target JMJS 03.5.21 1523
59  [Perl]jutil.pm JMJS 03.5.3 1775
58  [Perl]jdiff.pl JMJS 02.6.6 1671
57  [Perl]cfilter.pm - commant filter JMJS 02.1.31 1717
56  [HTML]ÀÚµ¿À¸·Î ´Ù¸¥ ÆäÀÌÁö À̵¿ JMJS 02.1.19 1536
55  STDIN file open glob -w warning JMJS 24.6.22 1576
54  opendir , readdir , closedir JMJS 24.6.22 1585
53  rand_diff JMJS 01.10.23 1481
52  vcd2v.pl JMJS 15.8.25 1555
51  file upload JMJS 24.6.22 1496
50  umask(070) <- chmod o-rwx Áø¼º 01.3.16 1651
49  head2index Áø¼º 01.3.15 1347
48  grep.pl JMJS 11.1.20 1474
47  chr(13) = \M Áø¼º 01.3.15 1343
46  stty JMJS 01.3.12 1451
45  des.pl JMJS 01.3.8 1419
44  chr_plus.pl JMJS 01.3.8 1430
43  get passwd in unix JMJS 19.8.18 1277
42  unsort JMJS 19.9.10 1509
41  read from website web JMJS 19.5.15 1321
40  vec JMJS 01.3.8 1575
39  chomp $_ @_ say defined use 5.010 state grep any ... JMJS 18.10.27 1500
38  [Perl Tk] µµ½ºÃ¢ ¾øÀÌ, ÆÞ Tk ½ºÅ©¸³Æ® ½ÇÇàÇϱâ; ... JMJS 17.9.30 1454
37  @bs = sort {$a <=> $b} @as; JMJS 17.7.12 1520
36  if ( -e -z -s -f -d -T -B -M ) JMJS 16.3.10 1619
35  mkmm.pl - make freemind JMJS 12.5.22 1567
34  perl -pi.orig -e "s/\bu_(\w+_t)\b/u$1/g" *.c JMJS 11.8.26 1553
33  .xls output csv ÆÄÀÏ¿¡ \n "°¡ ÀÖÀ»¶§ JMJS 11.4.13 1442
32  jdcat.pl juncat.pl JMJS 11.2.24 1593
31  print chr(ord('a')); JMJS 01.3.8 1497
30  require "/user/home/jin1/jin1.pm"; JMJS 00.11.28 1443
29  for(my $i=0; $i < @abc; $i ++) {} JMJS 00.11.15 1526
28  remove blank $abc =~ s/[\s]+//g; JMJS 00.11.15 1471
27  array and for JMJS 00.11.14 1310
26  È¨ÆäÀÌÁö ÀÚµ¿ À̵¿ JMJS 00.10.28 1371
25  html¿¡¼­ ¾²ÀÌ´Â ±âȣǥ½Ã¹æ¹ý JMJS 00.9.30 1328
24  ¹è¿­ÀÇ ¹üÀ§ ¿¬»êÀÚ JMJS 00.9.20 1622
23  for(1..3) { print "$_";} JMJS 09.4.24 1302
22  package JMJS 24.6.22 1374
21  ÁÙ¿¡¼­ ÇѱÛÀÚ °íÄ¡±â JMJS 00.8.7 1423
20  hotkey function by getc JMJS 00.7.21 1527
19  read, sysread, syswrite JMJS 00.7.21 2340
18  crypt JMJS 00.7.13 1638
17  csv2gan.pl JMJS 11.4.4 1645
16  hexa JMJS 24.6.18 1470
15  file in out.pl JMJS 00.7.5 1656
14  ARGV JMJS 00.7.5 1487
13  jtime.pm - localtime, timelocal JMJS 09.4.9 2010
12  @INC JMJS 00.7.5 1842
11  $#myarray JMJS 00.7.5 1602
10  Hash of Array JMJS 00.7.5 1422
9  package JARRAY JHASH JMJS 00.7.4 1660
8  foreach, while each, dos2unix.pl, next last JMJS 09.4.24 1644
7  X JMJS 24.6.22 1443
6  file lock JMJS 00.7.4 1559
5  gettime JMJS 00.7.4 1533
4  [Perl]jcdread.pl JMJS 00.7.4 1615
3  [Perl]jdread.pl JMJS 00.7.4 1509
2  Monti Hall problem JMJS 24.6.27 1502
1  DESTROY JMJS 09.7.20 1454
[1]