[Pdx-pm] method required text, how do I give it a variable?

Tom Phoenix rootbeer at redcat.com
Thu Jun 17 10:01:55 CDT 2004


On Tue, 15 Jun 2004, Thomas J Keller wrote:

> my @apples = <<EOL =~ m/\S.*\S/g;
> 	qq(tell application "Finder"\\n
> 		activate\\n
> 		display dialog "Greetings from Perl!"\\n
> 	end tell)
> EOL
> 
> my $string = join "", @apples;
> print "$string\n";

The string has a literal qq() in it, since you don't want both a qq()  
and a here-document at the same time. It's also got literal backslash-n
combinations where you need a newline.

You may use something like this to get your string, optionally including 
some interpolated strings in this here-doc if you wish:

my $string = <<EOL;
        tell application "Finder"
                activate
                display dialog "Greetings from Perl!"
        end tell
EOL

Good luck with it!

--Tom Phoenix



More information about the Pdx-pm-list mailing list