Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re^3: Bug in script, regex help req extreme urgent

by sid.verycool (Novice)
on Mar 10, 2013 at 12:40 UTC ( [id://1022660]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    BEGIN {undef $/;}
    ...
    open OUTFILE, ">$ARGV[0]" || die "Failed to create $ARGV[0]\n";
    print OUTFILE ($string);
    close OUTFILE;
    
  2. or download this
    use Modern::Perl;
    
    my $filename = $ARGV[0];
    ...
        $line =~ s/$match/module $ARGV[1]/;
        print $OUTFILE $line;
    }
    
  3. or download this
    my $match = "(?<=module )$ARGV[2].*?([\\(;])";
  4. or download this
    #!/usr/bin/perl -w
    
    BEGIN {undef $/;}
    ...
        next; 
        }
    }
    
  5. or download this
    my.pl f7 NEW OLD
    Now parsing f7
    Matching: (?<=module )OLD.*?([\(;])
    ...
    endmodule
    
    INSIDE IF
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1022660]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others browsing the Monastery: (4)
As of 2024-03-29 05:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found