LogIn E-mail
¼³°èÀ̾߱â
@INC
# 12 JMJS    00.7.5 11:43

%cat Cocoa.pm
package Cocoa;
sub new {
   my $this = {};
   bless $this;
   return $this;
}

1;

%cat Java.pm
#!/usr/bin/perl
push(@INC,'pwd');
use Cocoa;
$cup = new Cocoa;
...

%

push(@INC,'pwd');´Â ·ÎÄà µð·ºÅ丮¸¦ @INCÀÇ °Ë»ö °æ·Î¿¡ Ãß°¡ÇÑ´Ù. @INC´Â ÆÐŰÁö¸¦ ãÀ» ¶§ »ç¿ëµÉ °æ·ÎÀÇ ¸ñ·ÏÀÌ´Ù. ´Ù¸¥ µð·ºÅ丮¿¡ ¸ðµâÀ» ¸¸µé°í, °æ·Î¸¦ ¸í½ÃÇÏ¿© »ç¿ëÇÒ ¼ö ÀÖ´Ù.
¶Ç´Â push(@INC,"/home/khusain/test/scripts/")½ÄÀ¸·Î ¾µ¼öµµ ÀÖ´Ù.
use¹®¿¡ ÀÇÇØ PerlÀÎÅÍÇÁ¸®ÅÍ´Â @INC °æ·Î¸¦ °Ë»öÇϰí, ÆÐŰÁö Cocoa.pmÀ» Æ÷ÇÔ½ÃÄÑ ½ºÅ©¸³Æ®¿¡ µé¾î°¥ ¸ðµç ±â´ÉÀ» ±¸ÇöÇÑ´Ù. ÀÌ¿Í °°ÀÌ use¹®À» ÀÌ¿ëÇÔÀ¸·Î½á Ŭ·¡½º¸¦ »ç¿ëÇÒ ¼ö ÀÖ´Ù.

°Ô½Ã¹°: 115 °Ç, ÇöÀç: 1 / 1 ÂÊ
¹øÈ£ Á¦       ¸ñ ÀÛ¼ºÀÚ µî·ÏÀÏ ¹æ¹®
115  perl format JMJS 24.6.22 164
114  perl -p -i -e s/abc/def/g JMJS 24.3.26 179
113  Deleting from a Hash JMJS 24.1.23 191
112  yaml file Àбâ JMJS 23.11.30 232
111  alzipcon JMJS 22.11.26 289
110  file2date.pl JMJS 24.6.1 407
109  UTF-8, EUC-KR JMJS 19.12.15 377
108  wget.pl LWP Simple get JMJS 19.9.17 408
107  X JMJS 19.9.17 395
106  X JMJS 19.9.17 401
105  X JMJS 19.9.17 392
104  X JMJS 19.9.17 398
103  X JMJS 19.9.17 397
102  X JMJS 19.9.17 395
101  X JMJS 19.9.17 397
100  jsame.pl JMJS 09.5.21 1916
99  jos.pl JMJS 08.11.29 1654
98  jmngr.pl - jmjspro manager JMJS 08.11.29 1694
97  vhdl.pm JMJS 08.11.29 1657
96  jreg.pl JMJS 08.11.29 1646
95  jtree.pm JMJS 08.11.29 1727
94  w2c.pl JMJS 08.11.29 1686
93  jdread.pl JMJS 08.11.29 1464
92  ffile.zip ffilediff.pl JMJS 09.4.24 1518
91  rgb2ycbcr.pl JMJS 10.5.12 1824
90  proview.pl JMJS 08.11.29 1882
89  smi_shift.pl JMJS 10.10.3 1487
88  srt2smi.pl srtshift.pl JMJS 18.7.14 1691
87  Perl CGI Input Test, getenv.cgi JMJS 18.11.21 1373
86  hash JMJS 24.6.22 1634
85  tr a-z A-Z ġȯ , ´ë¼Ò¹®ÀÚ º¯È¯ , ¹®ÀÚ¿­ Á¶°Ç , ... JMJS 24.6.22 1436
84  JARRAY->jfunc JMJS 08.10.2 1404
83  ¼öÄ¡ÇÔ¼ö - ... JMJS 09.5.7 1876
82  ¿ªÇà·Ä3x3 JMJS 09.5.7 1923
81  hex2int.pl JMJS 10.9.12 2649
80  stat - file status º¸±â JMJS 07.12.16 1511
79  Perl Tip JMJS 24.6.22 2669
78  SMI file sync delay JMJS 07.7.18 1617
77  rmword.pl JMJS 07.6.18 1535
76  pack unpack JMJS 24.6.22 1435
75  [Perl]read_dir.pl JMJS 07.2.22 1717
74  [Perl]jtab2char - tab¹®ÀÚ¸¦ ƯÁ¤ char·Î ¹Ù²ãÁÖ±â JMJS 07.2.22 1694
73  Perl ¼ýÀÚ Sorting JMJS 11.5.17 1774
72  [CGI]GET and POST JMJS 06.11.20 3431
71  Perl Grammer JMJS 06.9.4 3014
70  Ç¥ÁØ ¸ðµâ JMJS 06.8.10 1905
69  Getopt::Long example JMJS 06.8.10 2101
68  array of array JMJS 06.4.22 1515
67  [HTML]Å×ÀÌºí ¹è°æ¿¡ ±×¸²³Ö±â JMJS 06.3.8 1602
66  l2w.pm - line to word JMJS 08.12.1 1590
65  make_random_chars JMJS 05.8.10 1434
64  mail º¸³»´Â script JMJS 05.3.23 1407
63  ½ÇÇàÆÄÀÏÀ» ½ÇÇà½Ã۰í Ç¥ÁØ¿¡·¯ Àбâ JMJS 09.2.25 1407
62  ÆË¾÷â(°øÁöâ)¶ç¿ì±â Jinsung 03.12.16 2509
61  print <<ENDLINE JMJS 03.12.5 1508
60  [HTML]Target JMJS 03.5.21 1534
59  [Perl]jutil.pm JMJS 03.5.3 1786
58  [Perl]jdiff.pl JMJS 02.6.6 1682
57  [Perl]cfilter.pm - commant filter JMJS 02.1.31 1728
56  [HTML]ÀÚµ¿À¸·Î ´Ù¸¥ ÆäÀÌÁö À̵¿ JMJS 02.1.19 1547
55  STDIN file open glob -w warning JMJS 24.6.22 1585
54  opendir , readdir , closedir JMJS 24.6.22 1595
53  rand_diff JMJS 01.10.23 1490
52  vcd2v.pl JMJS 15.8.25 1566
51  file upload JMJS 24.6.22 1505
50  umask(070) <- chmod o-rwx Áø¼º 01.3.16 1662
49  head2index Áø¼º 01.3.15 1355
48  grep.pl JMJS 11.1.20 1483
47  chr(13) = \M Áø¼º 01.3.15 1352
46  stty JMJS 01.3.12 1461
45  des.pl JMJS 01.3.8 1432
44  chr_plus.pl JMJS 01.3.8 1441
43  get passwd in unix JMJS 19.8.18 1286
42  unsort JMJS 19.9.10 1520
41  read from website web JMJS 19.5.15 1330
40  vec JMJS 01.3.8 1583
39  chomp $_ @_ say defined use 5.010 state grep any ... JMJS 18.10.27 1508
38  [Perl Tk] µµ½ºÃ¢ ¾øÀÌ, ÆÞ Tk ½ºÅ©¸³Æ® ½ÇÇàÇϱâ; ... JMJS 17.9.30 1465
37  @bs = sort {$a <=> $b} @as; JMJS 17.7.12 1531
36  if ( -e -z -s -f -d -T -B -M ) JMJS 16.3.10 1631
35  mkmm.pl - make freemind JMJS 12.5.22 1578
34  perl -pi.orig -e "s/\bu_(\w+_t)\b/u$1/g" *.c JMJS 11.8.26 1563
33  .xls output csv ÆÄÀÏ¿¡ \n "°¡ ÀÖÀ»¶§ JMJS 11.4.13 1453
32  jdcat.pl juncat.pl JMJS 11.2.24 1604
31  print chr(ord('a')); JMJS 01.3.8 1508
30  require "/user/home/jin1/jin1.pm"; JMJS 00.11.28 1452
29  for(my $i=0; $i < @abc; $i ++) {} JMJS 00.11.15 1537
28  remove blank $abc =~ s/[\s]+//g; JMJS 00.11.15 1481
27  array and for JMJS 00.11.14 1320
26  È¨ÆäÀÌÁö ÀÚµ¿ À̵¿ JMJS 00.10.28 1381
25  html¿¡¼­ ¾²ÀÌ´Â ±âȣǥ½Ã¹æ¹ý JMJS 00.9.30 1337
24  ¹è¿­ÀÇ ¹üÀ§ ¿¬»êÀÚ JMJS 00.9.20 1632
23  for(1..3) { print "$_";} JMJS 09.4.24 1311
22  package JMJS 24.6.22 1385
21  ÁÙ¿¡¼­ ÇѱÛÀÚ °íÄ¡±â JMJS 00.8.7 1432
20  hotkey function by getc JMJS 00.7.21 1537
19  read, sysread, syswrite JMJS 00.7.21 2351
18  crypt JMJS 00.7.13 1648
17  csv2gan.pl JMJS 11.4.4 1656
16  hexa JMJS 24.6.18 1480
15  file in out.pl JMJS 00.7.5 1667
14  ARGV JMJS 00.7.5 1495
13  jtime.pm - localtime, timelocal JMJS 09.4.9 2021
12  @INC JMJS 00.7.5 1853
11  $#myarray JMJS 00.7.5 1611
10  Hash of Array JMJS 00.7.5 1432
9  package JARRAY JHASH JMJS 00.7.4 1669
8  foreach, while each, dos2unix.pl, next last JMJS 09.4.24 1657
7  X JMJS 24.6.22 1454
6  file lock JMJS 00.7.4 1570
5  gettime JMJS 00.7.4 1543
4  [Perl]jcdread.pl JMJS 00.7.4 1627
3  [Perl]jdread.pl JMJS 00.7.4 1521
2  Monti Hall problem JMJS 24.6.27 1516
1  DESTROY JMJS 09.7.20 1464
[1]