Perl - Archiving Files With Perl

Categories:
·GNU/Linux
·Homebrew designs
·Perl
·Administration
·Backup/Recovery
·Bugs/Fixes
·Certification
·Database
·Email
·File/Print
·Hardware
·Information Grab Bag
·Interoperability
·GNU/Linux ABCs
·Monitoring
·Name Resolution
·Network Services
·Networking
·Remote Control
·Security
·Desktop
·Web
·BSD
·Solaris
·GIAGD
·REALbasic
·All Categories

Archiving Files With Perl
Topic: Perl Posted:2003-06-12
Printer Friendly:

Agatha had some complaints about her chicken cam. People weren't seeing enough chicken booty. A quick and easy way to do this is to use Perl:

while(6 ne 9){
for($c=1;$c<11;$c++){
system("scp root\@crackers:/chickenpicture.jpg /home/u-1/chickencam");
system("scp /home/u-1/chickencam/chickenpicture.jpg 
root\@signalq.com:/web/path/here/");
system("scp /home/u-1/chickencam/chickenpicture.jpg 
root\@signalq.com:/web/path/here/archive/chickenpicture".$c.".jpg");
sleep 300;
}
}

This way, the chicken cam cycles through. The only tricky part is escaping the @ symbols. You can see the results here.

Please read our Terms of Use
Microsoft, Windows, Windows XP, Windows 2003, Windows 2000, and NT are either trademarks or registered trademarks of Microsoft Corporation. NetAdminTools.com is not affiliated with Microsoft Corporation. Linux is a registered trademark of Linus Torvalds, and refers to the Linux kernel. The operating system of most distributions that contain the Linux kernel is GNU/Linux. All logos and trademarks in this site are property of their respective owner. Copyright 1997-2008 NetAdminTools.com