Hi all,
Have the following code(1) producing the results(2 & 3).
Would like to know if there is a way to format the two reports created in a similar fashion.
IE - The first is formatted nicely as a result of the echo "$xmpbdate $xavgs" >> $xmpbrpt
However when I attempt to do the same on... (7 Replies)
Hi need some advice..
#grep -i hostname test.csv
(gives the below output)
HOSTNAME,name,host_test,,,,,,,,
Now I need to format the above output as below.
HOSTNAME:
name=host_test
Any easy way of doing this using awk or sed or printf? (4 Replies)
Hi
I tried running the below
awk 'BEGIN { printf ("%s %-51s %s %-7s %s",$var1,$var2,$var3,$var4,$var5)}'
from the command prompt and it is not working.
Getting the error
awk: Field $() is not correct.
The source line number is 1.
Actually my requirement is to form a string based on... (6 Replies)
I am using find and ls to search for "warez" files on my server.
find /home/ -regex ".*\.\(avi\|mp3\|mpeg\|mpg\|iso\)" -print0 | xargs -0 ls -oh
This command produces this:
-rw-r--r-- 1 1000 3.2M Feb 18 2009 /home/user/public_html/lupus.mp3
I want to only get this
3.2M... (4 Replies)
Sorry for being a n00b, but I'm having a lot more trouble than I should with formatting the output to the program I finally completed. I'm basically looking for the linux equivalent to setw( ) from c++ so that I can print things in columns like this (but without the underlines lol):
MISSPELLED: ... (4 Replies)
Hi Experts,
I have to create a report for certain audit and my output looks as follows
I m trying to format my output to look like
Any inputs would be highly appreciated
Thanks
Syed (5 Replies)
Hi Guys
I need help removing some lines from output i am receiving from a shell script.
Here is the output:
http://i52.tinypic.com/10z0fut.png
I am trying to remove the output that i have circled.
. ${EDW}/extracts/bin/extracts_setup2.sh
. ${EDW}/extracts/extracts.conf
... (7 Replies)
Hi,
I have a file which contents entries in this form.
Only in /data4/temp abc.000001
Only in /data4/temp abc.000003
Only in /data4/temp abc.000012
Only in /data4/temp abc.000120
Only in /data4/temp abc.000133
Only in /data4/temp abc.001444
i want to read line by line and format... (2 Replies)
I am using FORTRAN 90 on AIX 5.3 and need to output my data to a tab-delimited file. It must have actual tabs, and I cannot figure out a way to make it work. The resulting file will be imported into another application (quickbooks) as an .iif file....for some reason, it needs the tabs; spaces do... (2 Replies)
Hi,
I am trying to use printf command and format certain output in a specific format as under:
While the left side (upto |) of the above format is part of a fixed header function, the right side is where i am expecting data to be printed. However, as seen, Row1 value is reflecting on last... (5 Replies)
Discussion started by: EmbedUX
5 Replies
LEARN ABOUT DEBIAN
file::mimeinfo::cookbook
File::MimeInfo::Cookbook(3pm) User Contributed Perl Documentation File::MimeInfo::Cookbook(3pm)NAME
File::MimeInfo::Cookbook - various code snippets
DESCRIPTION
Some code snippets for non-basic uses of the File::MimeInfo module:
Matching an extension
A file does not have to actually exist in order to get a mimetype for it. This means that the following will work:
my $extension = '*.txt';
my $mimetype = mimetype( $extension );
Mimetyping an scalar
If you want to find the mimetype of a scalar value you need magic mimetyping; after all a scalar doesn't have a filename or inode.
What you need to do is to use IO::Scalar :
use File::MimeInfo::Magic;
use IO::Scalar;
my $io_scalar = new IO::Scalar $data;
my $mimetype = mimetype( $io_scalar );
In fact most other "IO::" will work as long as they support the "seek()" and "read()" methods. Of course if you want really obscure
things to happen you can always write your own IO object and feed it in there.
Be aware that when using a filehandle like this you need to set the ":utf8" binmode yourself if apropriate.
Mimetyping a filehandle
Regrettably for non-seekable filehandles like STDIN simply using an "IO::" object will not work. You will need to buffer enough of the
data for a proper mimetyping. For example you could mimetype data from STDIN like this:
use File::MimeInfo::Magic;
use IO::Scalar;
my $data;
read(STDIN, $data, $File::MimeInfo::Magic::max_buffer);
my $io_scalar = new IO::Scalar $data;
my $mimetype = mimetype( $io_scalar );
Be aware that when using a filehandle like this you need to set the ":utf8" binmode yourself if apropriate.
Creating a new filename
Say you have a temporary file that you want to save with a more proper filename.
use File::MimeInfo::Magic qw#mimetype extensions#;
use File::Copy;
my $tmpfile = '/tmp/foo';
my $mimetype = mimetype($tmpfile);
my $extension = extensions($mimetype);
my $newfile = 'untitled1';
$newfile .= '.'.$extension if length $extension;
move($tmpfile, $newfile);
Force the use of a certain database directory
Normally you just need to add the dir where your mime database lives to either the XDG_DATA_HOME or XDG_DATA_DIRS environment variables
for it to be found. But in some rare cases you may want to by-pass this system all together. Try one of the following:
@File::MimeInfo::DIRS = ('/home/me/share/mime');
eval 'use File::MimeInfo';
die if $@;
or:
use File::MimeInfo;
@File::MimeInfo::DIRS = ('/home/me/share/mime');
File::MimeInfo->rehash();
This can also be used for switching between databases at run time while leaving other XDG configuration stuff alone.
AUTHOR
Jaap Karssenberg <pardus@cpan.org>
Copyright (c) 2005, 2012 Jaap G Karssenberg. All rights reserved. This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
SEE ALSO
File::MimeInfo
perl v5.14.2 2012-01-05 File::MimeInfo::Cookbook(3pm)