First page Back Continue Last page Overview Graphics
perl script to copy a channel
perl script to copy a channel
- #!/usr/bin/perl -w
- $src = 85; $dst = 53;
- $start = 60651; $stop = 63500;
- while (<>) {
- if (/([0-9]*) (..) ([0-9]*)/o) {
- $ms = $1;
- $cmd = $2;
- $chan = $3;
- if ($ms > $start && $ms < $stop) {
- if ($chan == $src) {
- print "$ms $cmd $dst\n";
- }
- }
- print;
- } else {
- print;
- }
- }