12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 |
- use MIME::Base64;
- local $/;
- while (<>) {
- close ARGV;
- if (substr($_,0,6) eq '#FILE ') {
- print "decoding $ARGV\n";
- my $ts = (stat($ARGV))[9];
- s/^.*\n//;
- my $bytes = decode_base64($_);
- open(F, "> $ARGV");
- print F $bytes;
- close F;
-
- utime $ts, $ts, $ARGV;
- }
- }
|