How do I cope with file names containing a blank, if I want to rename them?
$ ./ping google.com given is experimental at /usr/local/share/perl/5.20.2/App/Cope.pm line 255. when is experimental at /usr/local/share/perl/5.20.2/App/Cope.pm line 256. when is experimental at /usr/local/share/perl/5.20.2/App/Cope.pm line 259. when is experimental at /usr/local/share/perl/5.20.2/App/Cope.pm line 262. given is experimental at /usr/local/share/perl/5.20.2/App/Cope/Extra.pm line 119. when is experimental at /usr/local/share/perl/5.20.2/App/Cope/Extra.pm line 120. given is experimental at /usr/local/share/perl/5.20.2/App/Cope/Extra.pm line 159. when is experimental at /usr/local/share/perl/5.20.2/App/Cope/Extra.pm line 160. when is experimental at /usr/local/share/perl/5.20.2/App/Cope/Extra.pm line 161. PING google.com (173.194.36.4) 56(84) bytes of data. 64 bytes from bom04s01-in-f4.1e100.net (173.194.36.4): icmp_seq=1 ttl=57 time=67.8 ms 64 bytes from bom04s01-in-f4.1e100.net (173.194.36.4): icmp_seq=2 ttl=57 time=68.1 ms 64 bytes from bom04s01-in-f4.1e100.net (173.194.36.4): icmp_seq=3 ttl=57 time=66.6 ms 64 bytes from bom04s01-in-f4.1e100.net (173.194.36.4): icmp_seq=4 ttl=57 time=66.6 ms ^C --- google.com ping statistics --- 4 packets transmitted, 4 received, 0 packet loss, time 3004ms rtt min/avg/max/mdev = 66.687/67.353/68.155/0.743 ms
$ ./ping google.com 2>/dev/null PING google.com (173.194.36.1) 56(84) bytes of data. 64 bytes from bom04s01-in-f1.1e100.net (173.194.36.1): icmp_seq=1 ttl=57 time=68.4 ms 64 bytes from bom04s01-in-f1.1e100.net (173.194.36.1): icmp_seq=2 ttl=57 time=66.6 ms 64 bytes from bom04s01-in-f1.1e100.net (173.194.36.1): icmp_seq=3 ttl=57 time=66.4 ms ^C --- google.com ping statistics --- 3 packets transmitted, 3 received, 0 packet loss, time 2003ms rtt min/avg/max/mdev = 66.419/67.179/68.421/0.885 ms
#!/usr/bin/env perl use App::Cope; use App::Cope::Extra qw[ping_time percent_b]; use Regexp::Common qw[net]; sub process { # header line qr{^PING (\S+)} => 'blue bold underline'; # ping replies line qr{time=([0-9.]+ ms)\b} => \&ping_time; mark qr{\($RE{net}{IPv4}\)} => 'blue'; line qr{(?:icmp_seq|ttl)=(\d+)} => 'bold'; line qr{^(?:\d+ bytes )?[Ff]rom ([^:\s]+)} => 'blue bold'; # final ping statistics line qr{(\d+% packet loss)} => \&{ percent_b 0, 1, 26 }; line qr{min/avg/(?:max/mdev|ewma/max)\s=\s ([0-9.]+)/ # minimum ([0-9.]+)/ # average ([0-9.]+)/ # maximum or moving average ([0-9.]+\sms) # mean deviation or maximum }x => ( \&ping_time ) x 4; } run( \&process, real_path, @ARGV );
$ head -n15 /usr/local/share/perl/5.20.2/App/Cope.pm #!/usr/bin/env perl package App::Cope; #use strict; #use warnings; use 5.010_000; use Carp; our $VERSION = '0.99'; =head1 NAME App::Cope - Functions for the B<cope> program =head1 SYNOPSIS
$ head -n15 /usr/local/share/perl/5.20.2/App/Cope/Extra.pm #!/usr/bin/env perl package App::Cope::Extra; #use strict; #use warnings; use 5.010_000; =head1 NAME App::Cope::Extra - Pre-defined highlighting syntax for common patterns =head2 SYNOPSIS use App::Cope::Extra; line qr{User: (\S+)} => \&{ user 'yellow' };
#!/bin/bash rsync.exe -rltDvP --exclude "System Volume Information" --exclude "RECYCLER" --exclude=\$RECYCLE.BIN --delete "/cygdrive/c/users/<USERNAME> /desktop/mvi_1840.mov" "/cygdrive/c/users/<USERNAME>/desktop/test/"