David Westbrook > Backtick-AutoChomp > Backtick::AutoChomp

Download:
Backtick-AutoChomp-0.02.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.02   Source  

NAME ^

Backtick::AutoChomp - auto-chomp() result of backtick(``) and qx//

VERSION ^

Version 0.02

SYNOPSIS ^

Automatically chomp() result of a backtick (``) or qx// command.

    $s = `echo blah` . 'stuff';
    print $s;   # blah\nstuff

    use Backtick::AutoChomp;
    $s = `echo blah` . 'stuff';
    print $s;   # blahstuff
    no Backtick::AutoChomp;

DESCRIPTION ^

In bash, the shell will automatically chomp the result of a backtick call.

    s=`whoami`       # me
    echo =$s=        # =me=
    echo =`whoami`=  # =me=

In perl, we must** do:

    $s = `whoami`;
    chomp($s);
    print "=$s=";

The goal of this module is for this to DWIM:

    print "=".`whoami`."=";

Another case where this is potentially useful:

    use Backtick::AutoChomp;
    printf "me(%s), host(%s), kernel(%s), date(%s)\n",
        `whoami`,
        `hostname`,
        `uname -r`,
        `date`,
    ;

** Yes, there are pure-perl ways to do whoami, hostname, etc. But keep in mind programs that don't have equivalents ... and also, especially for temp/quick-n-dirty scripts, the convenience factor :)

Note that this is implemented as a source filter. It replaces a backtick or qx statement with a do{} statement.

SEE ALSO ^

PPI, Filter::Simple

AUTHOR ^

David Westbrook (CPAN: davidrw), <dwestbrook at gmail.com>

BUGS ^

Please report any bugs or feature requests to bug-backtick-chomp at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Backtick-AutoChomp. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT ^

You can find documentation for this module with the perldoc command.

    perldoc Backtick::AutoChomp

You can also look for information at:

COPYRIGHT & LICENSE ^

Copyright 2008 David Westbrook, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

syntax highlighting: