Hi,
Iam doing the following using sed in a script , it is NOT working
line_old= 3754|Yes|Yes
line_new= 3754|Yes|Yes|Yes|Yes
sed -e 's/$line_old/$line_new/' data.$$ > tmp.$$
mv tmp.$$ data.$$
Regards (5 Replies)
I am working on sed ... to replace a string... but not able to save.
i need to repalce a string in httpd.conf in numerous directories.
I am doing this
find /opt/apache/*/conf/ -name httpd.conf -exec sed 's/LogLevel debug/LogLevel error/g' {} \;
even tried with
find... (4 Replies)
Hi All,
I need to modify ifcfg-eth0 file. The file currently contains the following:
ONBOOT=no
The desired output of the file is:
ONBOOT=no
DEVICE=eth0
BOOTPROTO=static
IPADDR=234.235.34.56
NETMASK=255.255.255.0
GATEWAY=234.235.34.1
I know sed can help me in this, and... (4 Replies)
Hi,
I need to redirect internal internet requests to a auth client site siting on the gateway. Currently users that are authenticated to access the internet have there mac address listed in the FORWARD chain. All other users need to be redirected to a internal site for authentication.
Can... (1 Reply)
Hi All,
Need some assistance n my script.
My file is LBXBC040904071724 and output should be LBX0904071704
tempFile=`echo $file | cut -c 4-7`
tempFile1=`echo $file | sed -e s/$tempFile//`
min=`expr substr $tempFile1 12 2`
cycleno=`expr substr $tempFile 3 2`
newFile=`echo $tempFile1 |... (2 Replies)
hello,
I am not able to redirect the output to the same file, where I am searching and replacing a pattern.
D:\>cat abc.txt
abc
D:\>sed "s\abc\xyz\g" abc.txt > abc.txt
D:\>cat abc.txt
D:\>
If I dont redirect the output to abc.txt, the command is working fine, even if I append the... (10 Replies)
I dont get something about sed
If i have a text file inside contain a:a:a:a:a
sed "s/"$title:$author:$price:$qtyAvailable:$qtySold"/"$Ntitle:$author:$price:$qtyAvailable:$qtySold"/"
This work!! i can change a to be something else
but
If i have a text file inside contain Tom Tom:La... (2 Replies)
sed -i '' 's:'<string>/Users/testuser/Desktop/test.sh</string>':'something':g' log.txt
The log file has this in
<string>/Users/testuser/Desktop/test.sh</string> and I want to change it to something
This code isn't working any ideas? Its doing my head in! (4 Replies)
Hi, This is a strange issue: We have an sftp server. Users can ssh to it from internal LAN without any issue, but they can not ssh to it externally via firewall. Here is what I got:
OS is Solaris 9. No hosts.allow and hosts.deny files.
Please help. Thank you in advance! (7 Replies)
Discussion started by: aixlover
7 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)