Ȥ½Ã perl Àß ÇϽôºР°è½Å°¡¿ä??

   Á¶È¸ 3908   Ãßõ 0    

 #!/usr/bin/perl

while (<>) {
       chomp;

       # CHANGE ME: To the actual fields you use in your CSV file
       my ($domain) = split(/\,/, $_, 1);

       print qq{md $domain URL http://mail.$domain\n};
       print qq{\n};
}


이런 쉘스크립트를 작성했습니다. 원래 의도는 example.com이 입력 되어 있는 CSV를 함께 실행했을 때 화면에

md example.com URL example.com

가 떠야 하는데 실제로 실행하면

URL example.com

이렇게 뜹니다. 제가 작성한 스크립트에 어떤 문제가 있을까요?

ªÀº±Û Àϼö·Ï ½ÅÁßÇÏ°Ô.
¹®ÀÚ¿­ $domain À» split Çؼ­ ¹è¿­·Î ¸¸µé¾î¼­ ±×·±°ÍÀÌ ¾Æ´Ñ°¡¿ä?
¹è¿­ÀÇ Ã¹¹ø°¸¸ Âï°í ¸¶´Â µí.
$domain[0] ÇÏ¸é µÉ µíÇÕ´Ï´Ù.
     
µÎ º¯¼ö ¸ðµÎ $domain[0]À¸·Î ÇÏ¸é µÑ ´Ù ºó È­¸é¸¸ Ãâ·ÂÀÌ µÇ°í,
¼±Çຯ¼ö¸¸ $domain[0] À¸·Î ÇÏ°í, µÚ¿¡ ÀÖ´Â º¯¼ö´Â $domain À¸·Î Çϸé
md  URL example.com
ÀÌ·¸°Ô ¾Õ¿¡´Â ºóÄ­À¸·Î ³ª¿À°í µÚÂʸ¸ º¯¼ö°¡ ÁöÁ¤µÇ¾î ³ª¿É´Ï´Ù.
¤Ð¤Ð
          
0¹øÀÌ ³»¿ë ¾øÀÌ À߸°°ÍÀÌ¸é ´Ù¸¥ $domain[1] ¿¡ ÀÖÁö ¾ÊÀ»±î¿ä?
               
ÀÏ´Ü ¹è¿­·Î ãÀ¸¸é 0~5±îÁö ³Ö¾î ºÃ´Âµ¥ ÀüºÎ ºñ¾î ÀÖ´õ¶ó±¸¿ä...ÀÌÀ¯¸¦ ¸ð¸£°Ú½À´Ï´Ù ¤Ð¤Ð
$domain Àº ¹è¿­ÀÌ ¾Æ´Ï¶ó ½ºÆ®¸µ À̱º¿ä. ÆÞ¿¡¼­´Â ¸íĪÀÌ ¸®½ºÆ® ±º¿ä. À§¿¡ Á¦°¡ ¾´ ¸»Àº ´Ù Ʋ¸° ¸»ÀÌ³×¿ä ¤¾¤¾
ã¾Æº¸´Ï ¿ø·¡ $_ À» ÂÉ°³¼­ $domain ¿¡ ³ÖÀ¸¼Ì±º¿ä.
cvs ÇÑÁÙ¿¡ µµ¸ÞÀÎÀÌ ¿©·¯°³¸é @domain = split/,/, $_, °¹¼ö;
ÇÑ°³¸é my($domain) = split(/,/, $_);
¸¸ ÇÏ¸é µÇÁö ¾ÊÀ»±î¿ä? $_ µÚ¿¡ , ¾îÂ÷ÇÇ Ã¹¹ø° ÇÑ°³°¡ urlÀ̸é 1Àº »©°í,
±×·¡µµ Ãâ·ÂÀÌ ¾ÈµÇ¸é °ªÀ» º¹»çÇؼ­ ½áº¸½Ã¸é ¾î¶³±î¿ä?

20³â Àü¿¡ ÆÞ°ú ¸¶ÀÌ¿¡½ºÅ¥¿¤, ¾ÆÆÄÄ¡·Î µµ¼­°ü °ü¸®¸¦ À¥º£À̽º·Î Â¥Áá´Âµ¥, ´çÃé ±â¾ïÀÌ ¾È³ª´Â °ÍÀÌ, ½Ã°£Àº ¾î¿ ¼ö ¾ø³×¿ä.


QnA
Á¦¸ñPage 1781/5681
2014-05   4948421   Á¤ÀºÁØ1
2015-12   1485082   ¹é¸Þ°¡
2023-07   3897   ½Ì±¹³¯°­µµ
2015-05   3897   ½½·çÇÁ
2016-03   3898   izegtob
2014-10   3898   ±èÈ¿¼ö
2017-11   3898   ³¯°³
2023-08   3898   ´Þ±¤ÀÌ
2021-01   3898   isaiah
2019-09   3898   ¼úÀÌ
2017-09   3898   Sikieiki
2018-06   3898   È­¶õ
2018-06   3898   ½ÅÀº¿Ö
2016-01   3898   pap100
2018-01   3898   ¸Ó¶óÄ«´Âµ¥
2016-12   3898   FullMoon
2019-02   3898   ¶¥ºÎÀÚ
2016-01   3898   rÀ̽¿ør
2014-08   3898   ¸·ÆÇ´ëÀå
2015-03   3898   ³ªÆÄÀÌ°­½ÂÈÆ
2015-11   3898   TLaJ3KtYGr
2015-04   3898   ȲÁø¿ì