Perl

Capture a regex match in one line

my ($match) = "some string" =~ /(some).*/; 

print $match; # prints "some"

Get the script path

# C:\Foo\Bar\my_script.pl 

use strict; 

use warnings; 

use FindBin qw($Bin); 

print "My script lives in $Bin\n"; # My script lives in C:/Foo/Bar

Note that there is no trailing slash, and Windows back-slashes '\' are converted to forward slashes '/'

Backticks, system() and exec()

• exec(cmd): 
• executes command 
• never returns
• returns false if cmd not found
• system(cmd): 
• executes command 
• continues execution
• returns exit status of command
• `cmd` (backticks)
• executes command
• continues execution
• returns STDOUT
• list context: list of lines from output
• scalar context: single string joined with newlines
• qx// is equivalent quote
• open(cmd)
• command runs simultaneously with script
• can read STDOUT/STDERR and write STDIN
• Modules that might help:
• IPC::Open2
• IPC::Open3
• IPC::Run
• Win32::Process::Create

Credit: Ludwig Weinzierl on StackOverflow