#!/usr/bin/perl
use 5.010;
say "Hello world!";
my @array = qw (a b c d e f);
say @array;
say "@array";
open TEMP, ">temp.txt";
say TEMP "I am say";
# ./say.pl
Hello world!
abcdef
a b c d e f
#cat temp.txt
I am say
欢迎光临 曲径通幽论坛 (http://www.groad.net/bbs/) | Powered by Discuz! X3.2 |