Category: PERL

BackupRouters-TelnetToLocal.pl

#!/usr/bin/env perl #========================================================================= # BackupRouters-TelnetToLocal.pl # VERSION: 1.0 # AUTHOR: Brian Steinmeyer # EMAIL: [email protected] # WEB: https://sigkillit.com # DATE: 12/29/2012 # COMMENTS: Uses the Telnet::Cisco module to copy a Cisco Router’s running # configuration to the local machine. This module uses telnet so passwords # will be in clear text. Pass the Cisco Router’s …

Continue reading

Perl Show Current Script Name

If you ever needed to show the currently running Perl script name, here are the examples you need.  I personally like using the following to name log files based on the script name by replacing the extension: use File::Basename; #Display Current Script Name my $scriptName = basename($0); print $scriptName #Display Current Script Name with Different …

Continue reading