#!/bin/ksh
# Get an executable file in $*
list_dir=$(ls $*)
for file in $list_dir
do
if [ -x $file ]
then
#printing out if file is an execute file
echo "File $file is an execute file"
# get a non-executable input file in $1
for zfile in $list_dir
do
if [ ! -x $zfile ]
then
echo "File $zfile is a data file"
$file < $zfile
fi
done
fi
done
File 'a' (executable)
Code:
#!/bin/ksh
echo "Hello, I'm the 'a' file !"
echo "Here is my input:"
while read n
do
echo $n
done
echo "End of file 'a'"
File 'input00' (non executable)
Code:
- this
- is
- the
- input
- of
- the
- file
- intput00
File 'input01' (non executable)
Code:
- this
- is
- the
- input
- of
- the
- file
- intput01
Execute:
Code:
./cmd A/*
File A/a is an execute file
File A/input00 is a data file
Hello, I'm the 'a' file !
Here is my input:
- this
- is
- the
- input
- of
- the
- file
- intput00
End of file 'a'
File A/input01 is a data file
Hello, I'm the 'a' file !
Here is my input:
- this
- is
- the
- input
- of
- the
- file
- intput01
End of file 'a'
First, I'd like to know if being a shell programmer considered a "real" programmer. is it??
also, I do create a lot of shell programs which includes full scripts to create users and maintaining records. ie phone records.
now, I hear the programmer has to do some cleaning up after the... (3 Replies)
This is shell programming assignment.
It needs to create a file called .std_dbrc contains
STD_DBROOT=${HOME}/class/2031/Assgn3/STD_DB
(which includes all my simple database files)
and I am gonna use this .std_dbrc in my script file (read the data from the database files)
like this: .... (3 Replies)
1.if
2.then
3. # save the number of args and first argument in variables.
4. num_args=$#
5. id="$1"
6. echo "$id"
7. #echo "$1" > crapfile.txt
8. echo `sed 's/\*/'\*'/g' < crapfile.txt`
Above is a partial code.I would like to ask:
at line 1:... (1 Reply)
I created a file named q2.c in /home/tuan/Desktop/Shell_programming. I coded a script named "test" to check whether the file existed or not. My code :
#!/bin/sh
submitDir=/home/tuan/Desktop/Shell_programming/submit
if
then
echo "There is no q2.c"
else
echo "There is q2.c"
fi
After... (3 Replies)
Hi i would like to write a "script" which takes a directory as an argument and the script will output the content of a file in this directory.Here is my code
#!/bin/sh
#set an argument to be a specified path
$1=/home/tuan/Desktop/Shell_programming/directory
#check if an argument is a... (3 Replies)
I have 2 different directories. The first has 2 sub-folders A and B. The second as 2 sub-folders C and D and script named "script".There is a code of "script" to list 2 sub-folders C and D
#!/bin/sh
for file in *
do && echo $file
done
I would like to ask how can I make a change if I... (2 Replies)
In folder A i have a file "a' and text file named infile00.I would like to do redirection :a<infile01.
There is a code to do this
#get a file "a" in /home/A
for file in /home/A/*
do
if $file ]
then
#printing out if file is an execute file
echo $file "is an... (2 Replies)
Hello all,
I am currently try to learn the linux operating system as well as some bash programming. I have come across some online course work which has been very helpful, I have been working through some assignments and since I have no teacher to ask I have come to you experts.
So the... (6 Replies)
2- Write a bash shell script filestatic. The script should examine the number files in directories given as arguments (parameters) to this script.
a. if one argument is given, the script should count and report the number of files in this directory. Only regular files should be counted, not... (1 Reply)
2- Write a bash shell script filestatic. The script should examine the number files in directories given as arguments (parameters) to this script.
a. if one argument is given, the script should count and report the number of files in this directory. Only regular files should be counted, not... (1 Reply)
Discussion started by: tahseen_22334
1 Replies
LEARN ABOUT DEBIAN
file::type
File::Type(3pm) User Contributed Perl Documentation File::Type(3pm)NAME
File::Type - determine file type using magic
SYNOPSIS
my $ft = File::Type->new();
# read in data from file to $data, then
my $type_from_data = $ft->checktype_contents($data);
# alternatively, check file from disk
my $type_from_file = $ft->checktype_filename($file);
# convenient method for checking either a file or data
my $type_1 = $ft->mime_type($file);
my $type_2 = $ft->mime_type($data);
DESCRIPTION
File::Type uses magic numbers (typically at the start of a file) to determine the MIME type of that file.
File::Type can use either a filename, or file contents, to determine the type of a file.
METHODS
new
Returns a new File::Type object.
mime_type($argument)
Takes either data or a filename, determines what it is, and passes the argument through to the relevant method below. If the argument is a
directory, returns undef.
checktype_filename($filename)
Opens $filename (if possible; if not, returns undef) and returns the MIME type of the file.
checktype_contents($data)
Matches $data against the magic database criteria and returns the MIME type of the file.
TODO
* Add additional magic match criteria
BUGS
None known.
NOTES
Some magic definitions in the mime-magic file used in the creation of this module vary from those in other apps (eg image/x-png not
image/png).
SEE ALSO
File::MMagic and File::MimeInfo perform the same job, but have a number of problems that led to the creation of this module.
File::MMagic inlines a copy of the magic database, and uses a DATA filehandle, which causes problems when running under mod_perl.
File::MimeInfo uses an external magic file, and relies on file extensions rather than magic to determine the mime type.
As a result, File::Type uses a seperate module and script to create the code at the core of this module, which means that there is no need
to include a magic database at all, and that it is safe to run under mod_perl.
File::Type::Builder, which generates the code at the heart of this module.
ACKNOWLEDGMENTS
File::Type is built from a mime-magic file from cleancode.org. The original can be found at <http://clean-
code.org/cgi-bin/viewcvs.cgi/email/mime-magic.mime?rev=1.1.1.1>.
AUTHOR
Paul Mison <pmison@fotango.com>
COPYRIGHT
Copyright 2003-2004 Fotango Ltd.
LICENSE
Licensed under the same terms as Perl itself.
perl v5.8.8 2004-10-08 File::Type(3pm)