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

   Á¶È¸ 3730   Ãßõ 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 109/5600
2015-12   1068602   ¹é¸Þ°¡
2014-05   4517389   Á¤ÀºÁØ1
2020-12   3048   ¿ë»õ
2022-06   701   Dreaday
02-01   783   ³ª¿ì¼Ò·¡
2022-06   1862   Frinc
2011-04   8897   ¹«´À¹Ì
2017-04   3318   Ãʺ¸IT
2013-11   20718   Çà¾Æ¹ü
2016-05   5055   ´ëÇѹα¹
2013-11   26376   ȸ·ÎÀïÀÌ
2018-07   8234   õÁö¹«·á
2011-04   5969   À¯È£ÁØ
2016-05   3731   ¹Ì³ª¸®³ª¹°
2013-11   6906   SERiOS
2013-11   13639   ±èȲÁß
2017-04   3255   AplPEC
2022-07   894   Dreaday
2013-11   4574   ¹Î°¡³ð
2015-03   3891   µÕ±Û°Ô
03-04   890   ¹Ì·¡1
2015-03   3745   ADUS