生成bash腳本

Question

如何使用Perl創建另一個名爲hello.sh的文件？

我想：

#*perl codes* 
#Before this has perl's section of codes 
#Now want to create shell script 
open FILE , ">hello.sh" or die $!; 
chmod 0755, "hello.sh"; 
print FILE 
"#!/bin/sh 
echo "Hello World! 
"; 
close FILE; 

但是，這是非常多餘。如果我想使用IF-ELSE，那麼這樣做很難。

有什麼想法？

編輯

我想這

print FILE 
"#!/bin/sh 
if [-d $1]; then 
echo "It's a directory at $(pwd)" 
else 
echo $1 is not a directory 
fi 
"; 

正如你所看到的，Its檢測爲不是字符串， 難道我錯過這裏的任何語法？

Answer 1

您應該打印內容的文件句柄FILE

open FILE , ">", "hello.sh" or die $!; 
chmod 0755, "hello.sh"; 

print FILE <<'END'; 
#!/bin/sh 
echo "Hello World!" 
END 

close FILE; 

<<'END' ..是定界符不嘗試插值其中的perl會識別爲變量字符串（前綴$或@）

它還確保'或"引號不需要用\

Answer 2

這工作：

open FILE , ">hello.sh" or die $!; 
chmod 0755, "hello.sh"; 
print FILE "#!/bin/sh 
echo Hello World! 
"; 
close FILE; 

Answer 3

進行轉義需要轉義引號：

print FILE '#!/bin/sh 
if [-d $1]; then 
echo "It\'s a directory at $(pwd)" 
else 
echo $1 is not a directory 
fi 
'; 

或者使用q：

print FILE q{#!/bin/sh 
if [-d $1]; then 
echo "It's a directory at $(pwd)" 
else 
echo $1 is not a directory 
fi 
}; 

還是一個定界符：

print FILE <<'OUT'; 
#!/bin/sh 
if [-d $1]; then 
echo "It's a directory at $(pwd)" 
else 
echo $1 is not a directory 
fi 
OUT