Lines Matching refs:arg
219 my $arg = shift;
220 $arg =~ s/\\/\\\\/g;
221 $arg =~ s/\//\\\//g;
222 $arg =~ s/\./\\\./g;
223 $arg =~ s/\+/\\\+/g;
224 $arg =~ s/\{/\\\{/g;
225 $arg =~ s/\}/\\\}/g;
226 $arg =~ s/\*/\.\*/g;
227 $arg =~ s/\?/\./g;
230 return $arg;
238 my $arg = '';
239 while ($arg = shift @ARGV) {
240 $arg =~ /^-/ and unshift(@ARGV, $arg) and return;
242 $zip_file = $arg;
245 $arg = &make_reg_exp($arg);
246 push(@$patterns, $arg);
254 my ($arg);
256 while ($arg = shift @ARGV) {
257 $arg = &perled_slashes($arg);
259 $arg =~ /^-R$/ and $R = 1 and next;
260 $arg =~ /^-r$/ and $r = 1 and next;
261 $arg =~ /^-x$/ and $exclude = 1 and &get_patterns(\@exc_patterns) and next;
262 $arg =~ /^-i$/ and $include = 1 and &get_patterns(\@inc_patterns) and next;
263 $arg =~ /^-prefix$/ and $prefix = shift @ARGV and next;
264 $arg =~ /^-b$/ and shift @ARGV and next;
265 $arg =~ /^-n$/ and shift @ARGV and next;
266 $arg =~ /^-t$/ and shift @ARGV and next;
267 $arg =~ /^-tt$/ and shift @ARGV and next;
268 $arg =~ /^-h$/ and &usage and exit(0);
269 $arg =~ /^--help$/ and &usage and exit(0);
270 $arg =~ /^-?$/ and &usage and exit(0);
271 if ($arg =~ /^-(\w)(\w+)$/) {
277 $arg =~ /^-(\w+)$/ and next;
278 $arg =~ /^\/\?$/ and &usage and exit(0);
279 $zip_file = $arg and next if (!$zip_file);
280 push(@given_patterns, $arg);