Perl code to search for filenames that contain special characters Post: 96227

Sponsored Content

Top Forums Shell Programming and Scripting Perl code to search for filenames that contain special characters Post 96227 by jerardfjay on Wednesday 18th of January 2006 04:43:18 PM

01-18-2006

Registered User

Quote:

Originally Posted by mahendramahendr

#!/usr/bin/perl -w

open(FLDR," find . -name '*' | sed 's/\\\\/\\\\\\\\/g' | ");
while( $line=<FLDR> )
{
my $vl = qx(basename $line);

if ( $vl =~ /\*|\<|\>|\?|\||:|\\|\// )
{
$line =~ s/\\\\/\\/g;
print "Patter found in $line";
}
}
close FLDR;

output :

$ tmp2.pl
Patter found in ./mah*ab
Patter found in ./amh\hai

is this ok ?

Perfect. Just what I wanted. Thanks for your time. while you were trying to get it to work I was trying myself and came up with this piece of code.

Code:

#! /usr/bin/perl
$dir="test_dir"
$out = `ls -R $dir | egrep -v ":" `;
foreach $fname (split /\n/, $out) {
      if ( $fname =~ /\*|\<|\>|\?|\||:|\\|\//) {
         print "File name { $fname } contains an invalid character in directory { $dir }\n";
         }
}

Contents of test_dir : ls -R test_dir

Code:

DIR1           DIR2          DIR3
DIR/DIR1:
test1

DIR/DIR2:
This \ might be an overkill

DIR/DIR3:
* this really does it

Executing test.pl I get the output

Code:

File name { This \ might be an overkill } contains an invalid character in directory { test_dir }
File name { * this really does it } contains an invalid character in directory { test_dir }

Appreciate your time.
Regards
Jerardfjay

jerardfjay

View Public Profile for jerardfjay

Find all posts by jerardfjay

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

search special characters in a file

Hello I am new to shell scripting and can anyone tell me how to check if there are any special characters in a file. Can i use grep ? thanks susie

2. Shell Programming and Scripting

Open filename with special characters in Perl

Hi All, I am facing a weird problem. I have got a directory structure copied from windows to Linux. Some of the folders are named like /gfs/data/Dow Jones $5/ DJ FCBOT_O_tick_1998.zip /gfs/data/Dow Jones $5/ DJ FCBOT_O_tick_2000.CSV /gfs/data/Dow Jones...

3. Shell Programming and Scripting

remove special characters from text using PERL

Hi, I am stuck with a problem here. Suppose i have a variable which is assigned some string containing special charatcers. for eg: $a="abcdef^bbwk#kdbcd@"; I have to remove the special characters using Perl. The text is assigned to the variable implicitly. How to do it?

4. Shell Programming and Scripting

Want the substring of a string with special characters using perl

Hi, I am trying to separate the directory from the filename using the substring and it does not like it. $Complete_name="C:\ABCD\Reports_Split\090308.1630" I want $File_Name as 090308.1630 I tried using Substring function and it does not like slashes in the complete_name. Any...

5. Shell Programming and Scripting

special characters handling in perl

Hi, Here is my piece of code-- sub per_user_qna_detail { for($index=0;$index<@records;$index++) { if($records =~ m/^(.*)\s*Morocco.*Entering\s*Module::authenticate/) { printf "INSIDE per_user_qna_detail on LINE NO $index\n"; $Time_Stamp = $1;...

6. Shell Programming and Scripting

Replace special characters in multiple files - perl

I have 100 files, where i want to search a set of strings and make the replacement by other strings In the first case I want to include a parameter in the name of a file LOG_DCT = $ LOG_DIR/DCT_GERAL_"$DATAINI".log replace to : LOG_DCT = $ LOG_DIR / DCT_GERAL_ $ 1_ "$ DATAINI". log I did...

7. Shell Programming and Scripting

awk search pattern with special characters passed from CL

I'm very new to awk and sed and I've been struggling with this for a while. I'm trying to search a file for a string with special characters and this string is a command line argument to a simple script. ./myscript "searchpattern" file #!/bin/sh awk "/$1/" $2 > dupelistfilter.txt sed...

8. Shell Programming and Scripting

Perl: windows filenames escape characters

I have a perl find program that will find all files of window application stored on unix disks. Ofcourse these files contain all the weird characters windows allows, but on *nix pukes out all kinds of unwanted effects when processing these. Is their a utility that will escape all these...

9. Shell Programming and Scripting

Search avoiding special characters

Hi all, I have a list which I want to search in another file. I can do that using grep -f but the search is failing due to special characters, how do I solve this? One row in that list is amino-acid permease inda1 gb|EDU41782.1| amino-acid permease inda1 Input file to be searched...

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

search special characters in a file

Discussion started by: cramya80

2. Shell Programming and Scripting

Open filename with special characters in Perl

Discussion started by: mitrashatru

3. Shell Programming and Scripting

remove special characters from text using PERL

Discussion started by: agarwal

4. Shell Programming and Scripting

Want the substring of a string with special characters using perl

Discussion started by: sushma0907

5. Shell Programming and Scripting

special characters handling in perl

Discussion started by: namishtiwari

6. Shell Programming and Scripting

Replace special characters in multiple files - perl

Discussion started by: RMSoares

7. Shell Programming and Scripting

awk search pattern with special characters passed from CL

Discussion started by: cue

8. Shell Programming and Scripting

Perl: windows filenames escape characters

Discussion started by: karelb

9. Shell Programming and Scripting

Search avoiding special characters

Discussion started by: gina.lizar

10. UNIX for Dummies Questions & Answers

Search special characters in a file and replace with meaningful text messages like Hello

Discussion started by: raka_rjit