Hi Monks, i wanna save the output in a variable for the below program. i am not able to do.Right now its just printing.pls do look in. 
$PatternToMatch="^SELECT";
$tmpfile="pattern.txt";
open(MYFILE, "$tmpfile")|| die "Cannot create $tmpfile\n";
while (<MYFILE>) {
if (/$PatternToMatch/)
{
 print   "$_"; }
}

[download]
the input is,
SQL*Plus: Release 9.2.0.6.0 - Production on Wed Jan 21 11:09:19 2009

Copyright (c) 1982, 2002, Oracle Corporation.  All rights reserved.


Connected to:
Oracle9i Enterprise Edition Release 9.2.0.7.0 - 64bit Production
With the Partitioning option
JServer Release 9.2.0.7.0 - Production

SQL>   2
'SELECTPOID_ID0FROM'||TABLE_NAME||'WHEREACCOUNT_OBJ_ID0=76362171;'
----------------------------------------------------------------------
+----------
SELECT  poid_id0 FROM ACTIVE_SESSION_T WHERE account_obj_id0 = 7636217
+1;
SELECT  poid_id0 FROM ADMIN_ACTION_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AUDIT_ACCOUNT_PRODUCTS_T WHERE account_obj_id0 =
+ 76362171;
SELECT  poid_id0 FROM AU_BAL_GRP_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DEAL_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DEPENDENCY_T WHERE account_obj_id0 = 76362171
+;
SELECT  poid_id0 FROM AU_DEVICE_SERVICES_T WHERE account_obj_id0 = 763
+62171;
SELECT  poid_id0 FROM AU_DEVICE_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DISCOUNT_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_GROUP_SHARING_MEMBERS_T WHERE account_obj_id0
+ = 7636217
1;

'SELECTPOID_ID0FROM'||TABLE_NAME||'WHEREACCOUNT_OBJ_ID0=76362171;'
----------------------------------------------------------------------
+----------

SELECT  poid_id0 FROM AU_GROUP_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_ORDERED_BALGROUP_T WHERE account_obj_id0 = 76
+362171;
SELECT  poid_id0 FROM AU_PAYINFO_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_PLAN_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_PRODUCT_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_RATE_PLAN_SELECTOR_T WHERE account_obj_id0 = 
+76362171;
SELECT  poid_id0 FROM AU_RATE_PLAN_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_RATE_T WHERE account_obj_id0 = 76362171;

[download]
the ouput obtained is,
SELECT  poid_id0 FROM ACTIVE_SESSION_T WHERE account_obj_id0 = 7636217
+1;
SELECT  poid_id0 FROM ADMIN_ACTION_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AUDIT_ACCOUNT_PRODUCTS_T WHERE account_obj_id0 =
+ 76362171;
SELECT  poid_id0 FROM AU_BAL_GRP_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DEAL_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DEPENDENCY_T WHERE account_obj_id0 = 76362171
+;
SELECT  poid_id0 FROM AU_DEVICE_SERVICES_T WHERE account_obj_id0 = 763
+62171;
SELECT  poid_id0 FROM AU_DEVICE_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DISCOUNT_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_GROUP_SHARING_MEMBERS_T WHERE account_obj_id0
+ = 7636217
SELECT  poid_id0 FROM AU_GROUP_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_ORDERED_BALGROUP_T WHERE account_obj_id0 = 76
+362171;
SELECT  poid_id0 FROM AU_PAYINFO_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_PLAN_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_PRODUCT_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_RATE_PLAN_SELECTOR_T WHERE account_obj_id0 = 
+76362171;
SELECT  poid_id0 FROM AU_RATE_PLAN_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_RATE_T WHERE account_obj_id0 = 76362171;

[download]

In reply to Output in variable by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.