#!/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[0] 하면 될 듯합니다.
선행변수만 $domain[0] 으로 하고, 뒤에 있는 변수는 $domain 으로 하면
md URL example.com
이렇게 앞에는 빈칸으로 나오고 뒤쪽만 변수가 지정되어 나옵니다.
ㅠㅠ
찾아보니 원래 $_ 을 쪼개서 $domain 에 넣으셨군요.
cvs 한줄에 도메인이 여러개면 @domain = split/,/, $_, 갯수;
한개면 my($domain) = split(/,/, $_);
만 하면 되지 않을까요? $_ 뒤에 , 어차피 첫번째 한개가 url이면 1은 빼고,
그래도 출력이 안되면 값을 복사해서 써보시면 어떨까요?
20년 전에 펄과 마이에스큐엘, 아파치로 도서관 관리를 웹베이스로 짜줬는데, 당췌 기억이 안나는 것이, 시간은 어쩔 수 없네요.