Re: reg exp help

[DBSMITH]

Actually,

you are incorrect... The +>> mean read and write in append mode.  Please
see the follow up email with the attachment I sent.

Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
614-566-4145



                                                                           
             bright true                                                   
             <[EMAIL PROTECTED]                                             
             .com>                                                      To 
                                       "[EMAIL PROTECTED]"            
             06/28/2005 10:45          <[EMAIL PROTECTED]>            
             AM                                                         cc 
                                       beginners@perl.org                  
                                                                   Subject 
             Please respond to         Re: reg exp help                    
                bright true                                                
             <[EMAIL PROTECTED]                                             
                   .com>                                                   
                                                                           
                                                                           
                                                                           




Hello,

First of all you're opening the file for writing

Second i didn't understand what you really want , if you want to print out
everything inside the file

my $file = 'newfile.txt';

open(FILE,$file);
while(<FILE>){
print $_;}
close(FILE);

That's it with out matching or anything

bye



On 6/28/05, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
  Can anyone help me with this match:

  #!/usr/bin/perl
  use strict;
  use warnings;


  my $talxkeylog =qq(/home/gpghrp/.gnupg/keys/log/talxkeyupd.log);
         open (FH, "+>>$talxkeylog") or warn "unable to open file
  $talxkeylog $!"
  ;
         #&cURL();
         #print "$calcdate\n$curtdate";
         my ($lc,$lcc) =$.;
         ($lc,$lcc) =0;
         if ( 2 == 2 ) {

                 #print FH "Time for TALX public key update!\t\n";
                 #print FH "$calcdate\n$curtdate";
                 #&cURL();
                 for (;<FH>;)
                 {
                         if (/^-{5,}(\w+)/ig) {
                                 print $_;

                         }
                         $lc++;
                 }
         }
  close (FH);


  thanks

  I want to print everything from BEGIN TO END and right now all I am
  printing is the begin and end lines.



  __END_CODE__
  __BEGIN _DATA__



  -----BEGIN PGP PUBLIC KEY BLOCK-----
  Version: PGP 6.5

  mQGiBEJIFiERBAD3c5VkK6sD5+ngCpeRazBdKR416ePaC6irWnIigw7m97W+U+u3
  Vuts/+22VxMi+KrXkCn2lq7UcOaeIANN1oDrku2yeJR1rRjwu5+pE5e+kh6rSkuP
  Lk3pheiLg/WwC/jqJPsYaPnJ2brC8EVVFi/LFOKtBbkII4wuYJJukZbZtwCg/2ZT
  9rvvLane4MwbVfufX/9hBz0D/j8Z+zyWEmLs/bd+l+1NKq2+pHz6K+pVhYfG3hAf
  1y7krPWfniXGsrxIDV7rZqKDAyuxhfksGfMWYKLjHfN7Xm8RbGMJJF1NTx8VwhNO
  imykmCyYYac+/Dh0C7WmGEOPhlIoG8pTjY/xc7ZoEWpbmHDTXqQA+ztJ6JeXJIEz
  OIb0BADP1uozyE1DnRUsW8PUIqCtrcel91qD8PtC7aqmoSkAZ2uVHHRxCp3aGXZV
  lc+yuwaK0L7WC9+/+OwAVioeeK3O5rOx9/IDA52Hvy1v5jVNcqODfdck6tc4fLkV
  GuIMoVs2AiU/6PJp2VVkYu7zZAFGM9NZBEw26TqsNR7qj+t0urQfdGFseGNvcnAx
  MTE2MjAwNSA8cGdwQHRhbHguY29tPokAUwQQEQIAFAUCQkgWIQUJATMtgAQLAwIB
  AhkBAAoJEPRUp2yIbsWrN60Al0I67BjENfAvX0tkcL6FyZMnq5cAnRkO8yuXR1ac
  mY8ivrh6eB2xcrPquQINBEJIFiEQCAD2Qle3CH8IF3KiutapQvMF6PlTETlPtvFu
  uUs4INoBp1ajFOmPQFXz0AfGy0OplK33TGSGSfgMg71l6RfUodNQ+PVZX9x2Uk89
  PY3bzpnhV5JZzf24rnRPxfx2vIPFRzBhznzJZv8V+bv9kV7HAarTW56NoKVyOtQa
  8L9GAFgr5fSI/VhOSdvNILSd5JEHNmszbDgNRR0PfIizHHxbLY7288kjwEPwpVsY
  jY67VYy4XTjTNP18F1dDox0YbN4zISy1Kv884bEpQBgRjXyEpwpy1obEAxnIByl6
  ypUM2Zafq9AKUJsCRtMIPWakXUGfnHy9iUsiGSa6q6Jew1XpMgs7AAICCACba3FM
  XQz1awim/Qv1+AAPyGeVqjNwBzBHckbbn5ck6ZYEJ9V29FxqB9iKk68vS/Qwc+XJ
  g9JUaxyS2f9d88qHISBeHJ+/9a7LXghexO2AraDD8IFGv88zDc9nMsPlh0EXZCTV
  SUegpEQB6tuTEYe5B0WOVt2ZIDvHnVkxnZgycwQ0r2Dw2amvkATgoD6IBKGk/WMO
  qNrK/zcslGScfNbj5ExQ2az/32tHX/Exuys0Z2ahwkiWj6d0ggKUIFdcnm/m3egd
  f9eiGvoHPPLhnFszDt3Dbw2MP6Yorr2l5vJ2VktCpAO3teSKAVNt++UKpb/0Ykik
  PhRRq0DyPQ5xlShYiQBMBBgRAgAMBQJCSBYhBQkBMy2AAAoJEPRUp2yIbsWr8Q0A
  niD9KAivhqxjhohFPrSWqNYqfRkRAKClRpDGTcVc4WIZQFDjfaACXqJUiA==
  =/2pu
  -----END PGP PUBLIC KEY BLOCK-----

  Derek B. Smith
  OhioHealth IT
  UNIX / TSM / EDM Teams
  614-566-4145


  --
  To unsubscribe, e-mail: [EMAIL PROTECTED]
  For additional commands, e-mail: [EMAIL PROTECTED]
  < http://learn.perl.org/> <http://learn.perl.org/first-response>





-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>