STDIN/STDOUTã使ããã¹ã IO::ScalarArray æ¨æºå ¥åã®èªåè©¦é¨ æ¨æºã¢ã¸ã¥ã¼ã«ã®IO::scalarã§ãIOãã£ããã£ã§ãã¾ããã Tieã«ããã¢ã¸ã¥ã¼ã«ã¨æ©è½ã¯ã»ã¼åãã§ãã #!perl -w use strict; { my $content = "Hello, world\n"; open my $in, '<', \$content; local *STDIN = $in; print scalar <STDIN>; } print scalar <STDIN>; __END__
{{#tags}}- {{label}}
{{/tags}}