Sponsored Content
Top Forums Shell Programming and Scripting perl newbie . &&..programming newbie Post 302308972 by ghostdog74 on Monday 20th of April 2009 08:16:44 PM
Old 04-20-2009
split the filename on _ so you get the middle part and the first part. use module like File::Path or Perl's internal mkdir to create directories.
Code:
use File::Path;
while(<*.dat>){
  @l = split /_/,$_;  
  mkpath(...); # see the doc of File::Path for usage
  # or mkdir()
}

 

10 More Discussions You Might Find Interesting

1. Programming

programming question from a newbie, please help

Hi Everyone, I really hope I could get some insight from a few of you, I've been searching the net for various resources, and this board seems to be the friendliest and most helpful by far. I work for a medical research company and we use sun 4 and we have different studies that have their... (1 Reply)
Discussion started by: milenky
1 Replies

2. UNIX for Dummies Questions & Answers

Programming Newbie Chick

OK, so I'm trying to finish my last individual assignment for this course, and it's the first time I've visited a forum (I've actually understood UNIX up to this point). I am having trouble with this one. I have to write a program that prompts the user to type their first name and stores it in a... (3 Replies)
Discussion started by: metalgoddess21
3 Replies

3. UNIX for Dummies Questions & Answers

Newbie ? Need Help with If/Then & Line Breaks...

I hope this makes sense, but I need help with what is indicated with %%, below : A.) ####List active servers and send to file#### # ps -ef | grep jboss | grep sh | awk '{if ($14) {print $12;}else {print $11}}' | sort > /export/home/kthatch/script_results client302 client306 client309... (1 Reply)
Discussion started by: kthatch
1 Replies

4. UNIX for Dummies Questions & Answers

Newbie help with New Line & Blank Line

I have this in my script: usercount=`ldapsearch -L -b"ou=people,ou=$ou,dc=paisleyhosting,dc=com" -h"$server" -p"1391" cn=* nothing | grep -c dn` admincount=`ldapsearch -b"ou=groups,ou=$ou,dc=paisleyhosting,dc=com" -h"$server" -p"1391" cn=USERADMIN* uniquemember | grep... (5 Replies)
Discussion started by: kthatch
5 Replies

5. Shell Programming and Scripting

perl newbie . &&..programming newbie (question 2)

Hello everyone, I am having to do a lot of perl scripting these days and I am learning a lot. I have this problem I want to move files from a folder and all its sub folders to one parent folder, they are all .gz files.. there is folder1\folder2\*.gz and there are about 50 folders... (1 Reply)
Discussion started by: xytiz
1 Replies

6. SCO

newbie - CUPS installation & C compiler

Ok new in here so be gentle: I'm a programmer with the need to also be a sys admin on a box running: Client has purchased a Kyocera KM-4035 do it all machine. However, no driver exists for SCO and when I contacted their Kyocera rep he told me to install CUPS. I downloaded CUPS and ran... (2 Replies)
Discussion started by: bbxguy
2 Replies

7. Fedora

Newbie at Linux Kernel programming!

Hi Friends, This is my first ever post on this forum. I am a new user in the Linux field. Although, I have been working for sometime with CentOS at my work, I would consider myself an amateur only in this field. :D The way file system works in linux and the reason its open-source, has really... (7 Replies)
Discussion started by: rohitrajjain
7 Replies

8. Red Hat

newbie: Linux Server Names & Types..!!!

Any one tell me about the list of Redhat Linux Enterprise 5 SERVERS and their functions. thanks (3 Replies)
Discussion started by: salman103
3 Replies

9. AIX

Newbie & LPAR

Hello, what is the meaning of: lparstat -i Node Name : **** Partition Name : **** Partition Number : 1 Type : Shared-SMT Mode : Capped Entitled Capacity : 2.00 Partition Group-ID : 32769 Shared Pool ID : 0 Online Virtual CPUs : 4 Maximum Virtual CPUs : 4 Minimum Virtual CPUs :... (5 Replies)
Discussion started by: Talulah
5 Replies

10. Shell Programming and Scripting

Programming newbie -help!!

Hi I am trying to learn shell script and i ran into an issue. I am trying to read a file with few directories and tar them up. I used a while loop but i end up overwriting tar file with only the last directory in the file being tared . cat test.txt | ( while read line do tar -czPf... (8 Replies)
Discussion started by: SPR
8 Replies
File::Path(3pm) 					 Perl Programmers Reference Guide					   File::Path(3pm)

NAME
File::Path - create or remove directory trees SYNOPSIS
use File::Path; mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711); rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1); DESCRIPTION
The "mkpath" function provides a convenient way to create directories, even if your "mkdir" kernel call won't create more than one level of directory at a time. "mkpath" takes three arguments: o the name of the path to create, or a reference to a list of paths to create, o a boolean value, which if TRUE will cause "mkpath" to print the name of each directory as it is created (defaults to FALSE), and o the numeric mode to use when creating the directories (defaults to 0777) It returns a list of all directories (including intermediates, determined using the Unix '/' separator) created. If a system error prevents a directory from being created, then the "mkpath" function throws a fatal error with "Carp::croak". This error can be trapped with an "eval" block: eval { mkpath($dir) }; if ($@) { print "Couldn't create $dir: $@"; } Similarly, the "rmtree" function provides a convenient way to delete a subtree from the directory structure, much like the Unix command "rm -r". "rmtree" takes three arguments: o the root of the subtree to delete, or a reference to a list of roots. All of the files and directories below each root, as well as the roots themselves, will be deleted. o a boolean value, which if TRUE will cause "rmtree" to print a message each time it examines a file, giving the name of the file, and indicating whether it's using "rmdir" or "unlink" to remove it, or that it's skipping it. (defaults to FALSE) o a boolean value, which if TRUE will cause "rmtree" to skip any files to which you do not have delete access (if running under VMS) or write access (if running under another OS). This will change in the future when a criterion for 'delete permission' under OSs other than VMS is settled. (defaults to FALSE) It returns the number of files successfully deleted. Symlinks are simply deleted and not followed. NOTE: If the third parameter is not TRUE, "rmtree" is unsecure in the face of failure or interruption. Files and directories which were not deleted may be left with permissions reset to allow world read and write access. Note also that the occurrence of errors in rmtree can be determined only by trapping diagnostic messages using $SIG{__WARN__}; it is not apparent from the return value. Therefore, you must be extremely careful about using "rmtree($foo,$bar,0" in situations where security is an issue. AUTHORS
Tim Bunce <Tim.Bunce@ig.co.uk> and Charles Bailey <bailey@newman.upenn.edu> perl v5.8.0 2002-06-01 File::Path(3pm)
All times are GMT -4. The time now is 08:07 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy