linux - perl + add warn massage in perl one liner code -


i have perl 1 liner code rename names of files/directories

code:

find /tmp -name "*$name_that_we_want_to_change*" -exec /tmp/rename.pl  's/\q$env{name_that_we_want_to_change}\e/$1$env{new_name}$2/' {} +

i want add print message ( warn ) , code in order print file/directory change

so add line:

       && warn "rename file - [$env{$name_that_we_want_to_change}"'

so finaly update code be:

find /tmp -name "*$name_that_we_want_to_change*" -exec /tmp/rename.pl  's/\q$env{name_that_we_want_to_change}\e/$1$env{new_name}$2/ {} + && warn "rename file - [$env{$name_that_we_want_to_change}"'

when run perl 1 liner follwoing error message:

    find: missing argument `-exec'

please advice need fix/update in code ?

. . . . .

full example ( before add warn "........." )

cd /tmp touch orig-name touch new-name export name_that_we_want_to_change=orig-name export new_name=new-name    find /tmp -name "*$name_that_we_want_to_change*" -exec /tmp/rename.pl  's/\q$env{name_that_we_want_to_change}\e/$1$env{new_name}$2/' {} +  ls | grep new-name new-name    more /tmp/rename.pl  #!/usr/bin/perl # # rename script examples lwall: #       rename 's/\.orig$//' *.orig #       rename 'y/a-z/a-z/ unless /^make/' * #       rename '$_ .= ".bad"' *.f #       rename 'print "$_: "; s/foo/bar/ if <stdin> =~ /^y/i' *  $op = shift; (@argv) { $was = $_; eval $op; die $@ if $@; rename($was,$_) unless $was eq $_; 

#! /usr/bin/perl use autodie; (@argv) {   rename $_, $_ =~ s/\q$env{origname}\e/$env{destname}/r     , warn "rename file - [$_]\n"; }

or if you're on centos, , can't use e.g. cpanel's newer perl:

#! /usr/bin/perl (@argv) {   (my $new = $_) =~ s/\q$env{origname}\e/$env{destname}/     , warn "rename file - [$_]\n";   rename $_, $new or die "rename of ``$_'' ``$new'' failed: $!"; }

or if need arbitrary perl:

#! /usr/bin/perl $op = shift; (@argv) {   $old = $_;   eval $op; die $@ if $@;   next if $old eq $_;   rename $old, $_ , warn "rename file - [$old]\n" }

mind subtle differences.

in first 2 cases, adjust find appropriately:

find /tmp -name "*$origname*" -exec /tmp/rename.pl {} +

it's not significant environment variables less painful.

by way, error not perl 1 very obvious find error. find , find -exec dangerous, yo: have knows they're doing take @ script before run it.


Comments

Post a Comment

Popular posts from this blog

php - Why I am getting the Error "Commands out of sync; you can't run this command now" -

the documentation of error mentioned in title says if commands out of sync; can't run command now in client code, calling client functions in wrong order. this can happen, example, if using mysql_use_result() , try execute new query before have called mysql_free_result(). can happen if try execute 2 queries return data without calling mysql_use_result() or mysql_store_result() in between. from here: http://dev.mysql.com/doc/refman/5.0/en/commands-out-of-sync.html but in first query not fetching data mysql database, inserting. , in second query getting data database. here code $connection = mysqli_connect("localhost","username","password","tbl_msgs"); if(mysqli_connect_errno($connection)) { die("failed connect mysql: " . mysqli_connect_error()); } $query = "insert users (total_comments, total_views) values ({$total_comments}, {$total_views});"; $query .= "insert msgs (no...
Read more

linux - Does gcc have any options to add version info in ELF binary file? -

i mean whether gcc can insert source code version infor elf binary section or similar. not want change source file, add info gcc option in makefile. you can emit version info text file, turn text file object file statically link executable. the first step simple have write code: script or write version info in format plain text file. write makefile rule produce version.o version.txt, using objcopy . you'll have object file 2 useful symbols defined in it: beginning , end of textual version info. add generated object executable, , you'll able access version 2 ways: running strings on binary, or writing code in application print version string (you'll need declare start , end symbols variables in header file).
Read more

java - Are there any classes that implement javax.persistence.Parameter<T>? -

i'm using named queries fetch entities database using jpa , hibernate , came across puzzling me: how come there no default implementations of javax.persistence.parameter interface? i rather impressed how @staticmetamodel used criteriabuilder in jpa2 meaning type safety , don't have mess around setting string names. wanted apply similar of jpa1 ejb's i'm working on: dealergroup_.class: public dealergroup_ { public parameter<integer> id = new parameterimpl<integer>("id"); /// etc... } dealergroupfacade.class: // ... public dealergroup fetch(integer id) { typedquery<dealergroup> query = em.createnamedquery("dealergroup.fetchbyid", dealergroup.class); query.setparameter(dealergroup_.id, query); return query.getsingleresult(); } // ... i surprised find there no implementations of parameter interface - of course, implement myself absence makes me suspicious may mistake using in way? should implementing parameter...
Read more