| yuezonghe | 824eb0c | 2024-06-27 02:32:26 -0700 | [diff] [blame] | 1 | #! /usr/bin/perl |
| 2 | |||||
| 3 | use strict; | ||||
| 4 | use warnings; | ||||
| 5 | use Getopt::Std; | ||||
| 6 | |||||
| 7 | our $opt_n = 0; | ||||
| 8 | |||||
| 9 | getopts('n') or die "Invalid option: $!\n"; | ||||
| 10 | |||||
| 11 | print join(' ', @ARGV); | ||||
| 12 | print "\n" unless $opt_n; | ||||