I have a text file with following content (3 lines)
filename : output.txt
first line:12/12/2008
second line:12/12/2008
third line:Y
I would like to know how we can replace 'Y' with 'N' in the 3rd line keeping 1st and 2nd lines same as what it was before.
I tried using cat output.txt... (4 Replies)
I have a file which contains the following data.
Parameters "CParameters"
BEGIN DSSUBRECORD
Name "TgtDB"
Prompt "TgtDB"
Default "edwdev"
ParamType "0"
ParamLength "0"
ParamScale "0"
END DSSUBRECORD
MetaBag... (6 Replies)
I have an html file that looks like this (this is just a part of the html file):
<td colspan="3" rowspan="1" style="text-align: center; background-color: rgb(<!-- IDENTIFIER1 -->51, 255, 51);"><small><!-- IDENTIFIER2 -->UP</small></td>
This is to automatically update the status of the... (4 Replies)
I have a netscape 4.79 browser for our GUI which connects to a Solaris5.8 box. During peek hours, we see question marks appearing in the screen instead of the text we enter. This results in query failure. This problem does not happen always, and is quite irritating because, we have to close the... (6 Replies)
Hi.
I would like to have experts help on below action.
I have text files in which page nubmers exists in form like
PAGE : 1
PAGE : 2
PAGE : 3 and so on there is other text too. I would like to know is it possible to check the last occurance of Page... (6 Replies)
Hello
Does the unix korn shell provide a function to convert number entered in command line argument to text or Character so that in next step i will convert Chr to Hex (6 Replies)
so...
Lets assume I have a text file.
The text file contains multiple "#" symbols.
I want to replace all thos "#"s with a STRING using DOS/Batch
I want to add a certain TEXT to the end of each line.
How can I do this WITHOUT aid of sed, grep or anything linux related ? (1 Reply)
I wrote a program using Perl to find and replace a text within a file.
The text that needs to be replaced in the file is 'sql7.0.1' with 'sqls715'. When I execute my program I get an error message:
Here is my code:
#!/usr/bin/perl
use strict;
use warnings;
my $filename =... (6 Replies)
hi all,
trying this using shell/bash with sed/awk/grep
I have two files, one containing one column, the other containing multiple columns (comma delimited).
file1.txt
abc12345
def12345
ghi54321
...
file2.txt
abc1,text1,texta
abc,text2,textb
def123,text3,textc
gh,text4,textd... (6 Replies)
Discussion started by: shogun1970
6 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)