Sponsored Content
Top Forums Shell Programming and Scripting Renaming by manipulating strings Post 302718805 by msabhi on Sunday 21st of October 2012 04:55:07 AM
Old 10-21-2012
1>Verify is these are the conditions you require by just printing the mv command
Code:
ls *ext | perl -F"--" -alne '{if($#F==1){
if($F[1]=~/(\d+).ext/){ $p=$1;$F[0]=~s/^/$p /g;$F[1]=~s/$p//;print "mv \"$_\" \"".join(" -- ",@F)."\"" ;}
else { ($F[0],$F[1])=($F[1],$F[0]);$F[0]=~s/.ext//;$F[1]=~s/ *$/(.ext|^ *)/;print "mv \"$_\" \"".join(" -- ",@F)."\"" ;}
}else{ ($F[0],$F[2])=($F[2],$F[0]);$F[0]=~s/.ext//;$F[2]=~s/ *$/(.ext|^ *)/;;print "mv \"$_\" \"".join(" -- ",@F)."\"" ;}
}'

2>Once you are sure of what you want execute it
Code:
ls *ext | perl -F"--" -alne '{if($#F==1){
if($F[1]=~/(\d+).ext/){ $p=$1;$F[0]=~s/^/$p /g;$F[1]=~s/$p//;print "mv \"$_\" \"".join(" -- ",@F)."\"" ;}
else { ($F[0],$F[1])=($F[1],$F[0]);$F[0]=~s/(.ext|^ *)//;$F[1]=~s/ *$/.ext/;print "mv \"$_\" \"".join(" -- ",@F)."\"" ;}
}else{ ($F[0],$F[2])=($F[2],$F[0]);$F[0]=~s/(.ext|^ *)//;$F[2]=~s/ *$/.ext/;;print "mv \"$_\" \"".join(" -- ",@F)."\"" ;}
}' | sh


Last edited by msabhi; 10-21-2012 at 06:06 AM..
This User Gave Thanks to msabhi For This Post:
 

10 More Discussions You Might Find Interesting

1. UNIX for Advanced & Expert Users

Manipulating two files

Hi Friends, I prefer to represent my problem with example. I have two files as below: file1.txt --------- abcd.....1234......XY abcd.....1235......XX abcd................. abcd...231236..1111YX abcd...241236..1112YY abcd...241237......YY abce.....1235......YY file2.txt ------- ... (4 Replies)
Discussion started by: rinku11
4 Replies

2. Solaris

Manipulating File

Help...please. I have a log that contains Warning Authentication Failed: User GHDT88998HS doesn't exit: The User GHDT88998HS could not be found Mar 22, 2008 5:22:22AM com.hometel.ttm.auth.userlogin. about maybe a thousand entries failed user acct message How can I grab just the username... (2 Replies)
Discussion started by: rivendell500
2 Replies

3. UNIX for Dummies Questions & Answers

Help!! manipulating file

Hi all, I need help manipulating the file below. Here is what I needed to do. First, I have to replace INSUPD to DELETE. Then I need to change the content of the file around by flipping the contents in the file from the bottom to the top (start from "CMD") How should I attack this? Here... (2 Replies)
Discussion started by: sirrtuan
2 Replies

4. Windows & DOS: Issues & Discussions

Renaming files with strings from xml tags

Hello! I need to rename 400+ xml files. The name of the specific file is contained in a xml tag in the file itself. The batch file should rename all these files with strings found in xml tags. Every xml file has the following tags: <footnote><para>FILENAME</para></footnote> I have to get... (3 Replies)
Discussion started by: degoor
3 Replies

5. Shell Programming and Scripting

Manipulating a file

Hi everybody, I need an urgent help with a BASH script. I have file which contains (besides the other data) the lines with the following structure identified by with keyword PCList: <PARAMETER NAME="PCList" TYPE="LIST_STRUCTURE" MODEL="{,}" ... (1 Reply)
Discussion started by: sameucho
1 Replies

6. UNIX for Dummies Questions & Answers

Delete strings in file1 based on the list of strings in file2

Hello guys, should be a very easy questn for you: I need to delete strings in file1 based on the list of strings in file2. like file2: word1_word2_ word3_word5_ word3_word4_ word6_word7_ file1: word1_word2_otherwords..,word3_word5_others... (7 Replies)
Discussion started by: roussine
7 Replies

7. Shell Programming and Scripting

Delete lines in file containing duplicate strings, keeping longer strings

The question is not as simple as the title... I have a file, it looks like this <string name="string1">RZ-LED</string> <string name="string2">2.0</string> <string name="string2">Version 2.0</string> <string name="string3">BP</string> I would like to check for duplicate entries of... (11 Replies)
Discussion started by: raidzero
11 Replies

8. Programming

Code imrovements on manipulating strings

I have written the code below and would be very grateful for any comments about it (how can I improve it, simplify it,...). #ifndef String_hh #define String_hh #include <stdio.h> #include <string.h> #include <stdlib.h> #include "Vect2.hh" #include "Vector.hh" #include... (0 Replies)
Discussion started by: kristinu
0 Replies

9. Shell Programming and Scripting

Manipulating files

Not sure if the question posted in another forums can be moved by me.So posting the link here. https://www.unix.com/unix-advanced-expert-users/221425-shell-script-manipulate-files.html#post302795379 Need your help here. (1 Reply)
Discussion started by: vedanta
1 Replies

10. UNIX for Beginners Questions & Answers

How to pass strings from a list of strings from another file and create multiple files?

Hello Everyone , Iam a newbie to shell programming and iam reaching out if anyone can help in this :- I have two files 1) Insert.txt 2) partition_list.txt insert.txt looks like this :- insert into emp1 partition (partition_name) (a1, b2, c4, s6, d8) select a1, b2, c4, (2 Replies)
Discussion started by: nubie2linux
2 Replies
manipulate(3pm) 					User Contributed Perl Documentation					   manipulate(3pm)

NAME
OpaL::manipulate - Perl extension for manipulating files. SYNOPSIS
use OpaL::manipulate qw(functions); No functions or variables are exported automaticly so you have to specify them here. DESCRIPTION
OpaL::manipulate is a module for manipulating files. All functions are autoloaded so they will not be loaded into memory if you have not used them before. FUNCTIONS
perlmodifyadvanced It simply applies the script to the file to change its content. You also have to apply a message to tell what you are doing mostly for debugging and if any error occures. The error level tells how critical this action is to the script. USAGE: "perlmodifyadvanced"("file", "script", "message", errorlevel); The errorlevel is optional. perlmodify It simply fixes some stuff in the script string and then calls perlmodifyadvanced. USAGE: "perlmodify"("file", "script", "message", errorlevel); The errorlevel is optional. perlmodify_insertafter This function searches for something (regular expression). It if is found it inserts the text after it. But it will never insert the text twice. You also have to apply a message to tell what you are doing mostly for debugging and if any error occures. The error level tells how critical this action is to the script. USAGE: "perlmodify_insertafter"("file", "find", "text", "message", errorlevel); The errorlevel is optional. AUTHOR
Ola Lundqvist <ola@inguza.com> REQUIRES
OpaL::action, OpaL::read. SEE ALSO
OpaL::action OpaL::read perl(1) perl v5.10.1 2009-04-21 manipulate(3pm)
All times are GMT -4. The time now is 07:13 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy