System Command mv not working - Require a solution without modules.

G Nagasri Varma has asked for the wisdom of the Perl Monks concerning the following question:

HDCS9-156039439P:defunct abc$ ls -ltr 
total 320
drwxr-xr-x  2 abc  staff      68 Jan 28 12:46 1082970465 
-rwxrwxrwx  1 abc  staff      33 Jan 28 12:47 DEFUNCT.txt 
drwxr-xr-x  3 abc  staff     102 Jan 28 13:20 search_data 
-rwxrwxrwx  1 abc  staff       0 Jan 28 13:29 1087016121 
-rw-r--r--  1 abc  staff  155236 Jan 28 13:33 output_defunctusers_move
+ment.txt 
-rwxrwxrwx  1 abc  staff     680 Jan 28 13:33 data.pl 
drwxr-xr-x  2 abc  staff      68 Jan 28 13:42 1078036045
[download]

HDCS9-156039439P:defunct abc$ cat DEFUNCT.txt  
1087016121 
1082970465 
1078036045
[download]

HDCS9-156039439P:defunct abc$ cat data.pl  
#!/usr/bin/perl

open $outputfile, ">>","output_defunctusers_movement.txt" or die "$0: 
+open : $!";  

$count=0; 
open(DATA, "</Users/abc/defunct/DEFUNCT.txt") or die "Couldn't open fi
+le /Users/abc/defunct/DEFUNCT.txt ,$!"; 
@lines= <DATA>;  

for ($i=0;$i<=$#lines;$i++) 
{ 

print $lines[$i]; 
`mv /Users/abc/defunct/"$lines[$i]" /Users/abc/defunct/search_data`; 
$count++; 
print $outputfile "$count . Successfully moved file : $lines[$i] \n"; 

} 

close(DATA) || die "Coulnt close file /Users/abc/defunct/DEFUNCT.txt p
+roperly";
[download]

4.
o/p :

1087016121
mv: rename /Users/abc/defunct/1087016121 
 to /Users/abc/defunct/search_data/1087016121 
: No such file or directory 
1082970465 
mv: rename /Users/abc/defunct/1082970465 
 to /Users/abc/defunct/search_data/1082970465 
: No such file or directory 
1078036045 
mv: rename /Users/abc/defunct/1078036045 
 to /Users/abc/defunct/search_data/1078036045 
: No such file or directory 
HDCS9-156039439P:defunct abc$
[download]

Why is the move command not working? I need a solution without modules. Folders do exists but why is it showing an error no such file or directory?

Comment on System Command mv not working - Require a solution without modules. Select or Download Code

Replies are listed 'Best First'.
Re: System Command mv not working - Require a solution without modules. by Corion (Patriarch) on Jan 28, 2016 at 08:38 UTC
The filenames have newlines at the end. If you had used the Perl built-in rename function, it would have told you that your filenames have newlines at the end.	[reply]
Re^2: System Command mv not working - Require a solution without modules. by G Nagasri Varma (Novice) on Jan 28, 2016 at 08:47 UTC
I tried chomp function "chomp($lines$i);" but it throws me the error Illegal division by zero at ./data.pl line 13, <DATA> line 3.	[reply]
Re^3: System Command mv not working - Require a solution without modules. by Corion (Patriarch) on Jan 28, 2016 at 08:56 UTC
Please post the relevant code and please use `<code>...</code>` tags to mark it so it renders and downloads nicely. The problem is mostly a syntax error in your code where Perl interprets a file path as a division of two values. This mostly happens when you omit a closing quote on a string.	[reply] [d/l]
Re: System Command mv not working - Require a solution without modules. by 2teez (Vicar) on Jan 28, 2016 at 08:57 UTC
Hi G Nagasri Varma, There are several things one could point out to you namely: Use <code> </code> around your code `use warnings;` `use strict;` in your code Your open function should use the 3 arguments option Change your C/C++ for type. Use perl's like so: `foreach () {...}` OR `for () {...}` Lastly, instead of using `system(..)` or backticks `` or `qx/../` use module `File::Copy qw/move/` It comes installed with your Perl, for easy portability If you tell me, I'll forget. If you show me, I'll remember. if you involve me, I'll understand. --- Author unknown to me	[reply] [d/l] [select]
Re: System Command mv not working - Require a solution without modules. by Discipulus (Canon) on Jan 28, 2016 at 08:40 UTC
Hello, please add code tags to your post, see How do I post a question effectively? probably you need to pass a full path to the command as ~~"c:/users..." and~~(not noticed the linux directory output..) also note that the name `DATA` for your filehandle is a poor choice: `DATA` is __DATA__ (you can reopen it but is an unneeded risk) Check your path, for example sourrinding it with square brackets and printing it, before using. L* There are no rules, there are no thumbs.. Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.	[reply] [d/l] [select]
Re: System Command mv not working - Require a solution without modules. by Anonymous Monk on Jan 28, 2016 at 09:22 UTC
Require a solution without modules Focusing on just this portion there is a FAQ you need to read Yes, even you can use CPAN, A Guide to Installing Modules, Top 11 (GOOD) reasons not to use someone else's Modules, Top Seven (Bad) Reasons Not To Use Modules	[reply]


Perl-Sensitive Sunglasses
	PerlMonks