Re: Meaning of 'use constant USAGEMSG =

It defines a constant with the string in the HERE-doc as value.
to make it clearer one could write that in two steps:
my $c = <<USAGE; Usage:ftp.pl [options] host:/path/to/directory Options: --user <user> Login name --pass <pass> password USAGE #$c now holds the text between <USAGE and USAGE. print $c; use constant USAGEMSG => $c;
[download]
Update:
as igekami pointed out, the above won´t work. That happens when you don´t test your posts :(.

holli, /regexed monk/

Comment on Re: Meaning of 'use constant USAGEMSG = > ...' Download Code

Replies are listed 'Best First'.
Re^2: Meaning of 'use constant USAGEMSG = > ...' by ikegami (Patriarch) on Feb 08, 2005 at 16:36 UTC
Your code won't work because `use` is executed before the assignment to $c. Even if $c was initialized in a `BEGIN` block, it would still be too late.	[reply] [d/l] [select]
Re^3: Meaning of 'use constant USAGEMSG = > ...' by Anonymous Monk on Feb 09, 2005 at 11:37 UTC
`#!/usr/bin/perl use strict; use warnings; my $c; BEGIN { $c = <<USAGE; What do you mean, too late? USAGE } use constant USAGEMSG => $c; print +USAGEMSG; __END__ What do you mean, too late?` [download]	[reply] [d/l]
Re^4: Meaning of 'use constant USAGEMSG = > ...' by ikegami (Patriarch) on Feb 09, 2005 at 16:49 UTC
hum, I had tested `BEGIN { $c = <<USAGE; What do you mean, too late? USAGE use constant USAGEMSG => $c; }` [download] and `BEGIN { $c = <<USAGE; What do you mean, too late? USAGE } use constant USAGEMSG => $c;` [download] and both gave me the same error. Maybe the file wasn't properly saved for the second test? Thanks for verifying; it puzzled me.	[reply] [d/l] [select]