using stdin

[Mat Caughron <mat@xxxxxxxxxxxxxxxxx>]

Josh:

Does the following script answer your question on how to assign stdin
into a variable?

#!/usr/local/bin/perl -w
# stdin.pl
my $input = <STDIN>;
print "$input";



Mat Caughron
PHP Consulting


On Wed, 31 Dec 2003, Jay Hannah wrote:

>
> That's not straight Perl. What kind of Perly HTML templating system are
> you using?
>
> j
>
>
> On Tuesday, December 30, 2003, at 11:11 AM, Josh Kleensang wrote:
>
> > In this chunk of camel, I would like message (line 2) to be set to
> > whatever standard input was.  Do I Do something like STDIN->$message ?
> >
> > <%ARGS>
> > $message
> > $queue => 1
> > $action => "correspond"
> > $ticket => undef
> > </%ARGS>
> > <%init>
> > use RT::Interface::Email;
> > my ( $status, $error, $Ticket ) =
> > RT::Interface::Email::Gateway(\%ARGS);
> > </%init>
> > <%flags>
> > inherit => undef # inhibit UTF8 conversion done in /autohandler
> > </%flags>
> > % if ($status == -75 ) {
> > temporary failure
> > % }
> > %    elsif ($status == 1) {
> > ok
> > %        if ( $Ticket->Id ) {
> > Ticket: <% $Ticket->Id %>
> > Queue: <% $Ticket->QueueObj->Name %>
> > Owner: <% $Ticket->OwnerObj->Name %>
> > Status: <% $Ticket->Status %>
> > Subject: <% $Ticket->Subject %>
> > Requestor: <% $Ticket->Requestors->MemberEmailAddressesAsString %>
> > %        }
> > % }   else {
> > not ok - <%$error%>
> > % }
> >
>
>