bash: !.url": event not found while extracting filenames

Question

I am trying to extract filenames with .url extension using $name =~ s/\.url$//;. However, some of the names contain an exclamation mark just before the extension, e.g.:

"for example-this!.url" "and-something-else!.url"

This causes perl to emit an error and stop running:

bash: !.url": event not found

Is there a way to overcome this problem? Below shows part of the relevant code that I am using:

foreach my $f (@ARGV) {
 my (undef, $dir, $name) = File::Spec->splitpath($f);
 $name =~ s/\.url$//;

@Koterpillar, I can't because some filenames already contain single quotes. — Question Overflow, Apr 17 '13 at 10:16

score 2 · Accepted Answer · answered Apr 17 '13 at 10:41

2

The error that you're getting happens when history expansion is enabled (which is the default).

In order to disable, do

set +o histexpand

on the command line.

answered Apr 17 '13 at 10:41

devnull

118,548
33
236
227

score 1 · Answer 2 · answered Apr 17 '13 at 10:20

1

The error is not from perl but from the bash. You may want to store the filenames in a file and read them from there. Note that this problem only occurs when the bash is parsing your command line input. When the script reads filenames from a file, pipe, etc. there won't be any problem.

answered Apr 17 '13 at 10:20

tauli

1,420
8
13

I see.. Sorry, I just start learning perl. Can you show me how to port it over to the @ARGV variable. Thanks. – Question Overflow Apr 17 '13 at 10:32

bash: !.url": event not found while extracting filenames

2 Answers2