perl Heredoc

example:

```

#!/usr/bin/perl -w

use strict;

my $array=<<'EOF'

XXX

...

EOF

print $array;

```

你可能感兴趣的:(perl Heredoc)