11-22-2008
Quote:
The code should work fine with the changes you mention.
You say it doesn't work, could you explain what exactly is happening?
What i mean is when i run the script, there's no changes to the file (not backup and swap) even the file fulfill the condition. that's weird.
Quote:
Are you sure you that want to understand every part (it seams you prefer to avoid Perl)?
Yes if possible. I'm not trying to avoid but i really don't have much time.I thought it fast to learn by your explanation here. But it's oke if you don't have time to explain it.
Quote:
You can try to write a shell script for this task if you don't want to use Perl (?).
I already make it before this, but look likes no one feedback the correct one.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I have a large file which reads like this:
fixed-address 192.168.6.6 {
hardware ethernet 00:22:64:5b:db:b1;
host X;
}
fixed-address 192.168.6.7 {
hardware ethernet 00:22:64:5b:db:b3;
host Y;
}
fixed-address 192.168.6.8 {
hardware ethernet 00:22:64:5b:db:b4;
host A;
}... (4 Replies)
Discussion started by: ksk
4 Replies
2. Shell Programming and Scripting
I'm a bit new to regex and sed/perl stuff, so I would like to ask for some advice. I have tried several variations of scripts I've found on the net, but can't seem to get them to work out just right.
I have a file with the following information...
# Host 1
host 45583 {
filename... (4 Replies)
Discussion started by: TheBigAmbulance
4 Replies
3. Shell Programming and Scripting
Hello, I have only recently begun with awk and need to write this:
I have an input consisting of a couple of letters, a space and a number followed by various other characters:
fiRcQ 9( )
klsRo 9( ) pause
fiRcQ 9( ) pause
klsRo continue 1
aPLnJ 62( )
fiRcQ continue 5
... and so on
I... (7 Replies)
Discussion started by: Borghal
7 Replies
4. Homework & Coursework Questions
Use and complete the template provided. The entire template must be completed. If you don't, your post may be deleted!
1. The problem statement, all variables and given/known data:
The assignment is to convert a text table to csv format. I've got the cleaning up done, but I need to swap two... (0 Replies)
Discussion started by: VoiceInADesert
0 Replies
5. Shell Programming and Scripting
I have some text:
<date>some_date</date>
<text>some_text</text>
<name>some_name<name>
and I want to transform it to smthng like that:
some_name on some_date: some_text
I've tried sed:
sed 's/<text>\(.*\)<\/text>
<name>\(.*\)<\/name>/\2 - \1/'
but it says unterminated... (13 Replies)
Discussion started by: dsjkvf
13 Replies
6. Shell Programming and Scripting
Hi
I'm quite new with linux.
Very simple, I need to swap every 2 lines in a file.
Example
INPUT:
a a a
b b b
x x x
y y y
s s s
t t t
OUTPUT:
b b b
a a a
y y y
x x x
t t t (5 Replies)
Discussion started by: hernand
5 Replies
7. Shell Programming and Scripting
Hi All,
Sorry if this question has been posted elsewhere, but I'm hoping someone can help me! Bit of an AWK newbie here, but I'm learning (slowly!)
I'm trying to cobble a script together that will save me time (is there any other kind?), to swap two fields (one containing whitespace), with... (5 Replies)
Discussion started by: Bravestarr
5 Replies
8. Shell Programming and Scripting
Data file example
I look for primary and * to isolate the interesting slot number.
slot=`sed '/^primary$/,/\*/!d' filename | tail -1 | sed s'/*//' | awk '{print $1" "$2}'`
Now I want to get the Touch line for only the associate slot number, in this case, because the asterisk... (2 Replies)
Discussion started by: popeye
2 Replies
9. Shell Programming and Scripting
How can you swap the first 4 line only, the rest will stay the same.
thanks
#!/bin/sh
line=4
awk -v var="$line" 'NR==var {
s=$0
getline;s=$0"\n"s
getline;print;print s
next
}1' fileko.tx
.
desired output: (8 Replies)
Discussion started by: invinzin21
8 Replies
10. Shell Programming and Scripting
Hi there,
I have a text that I'm trying to format into something more readable. However, I'm stuck in the last step. I've searched and tried things over the internet with no avail.
OS: Mac
After parsing the original text that I won't put here, I managed to get something like this, but this... (8 Replies)
Discussion started by: Kibou
8 Replies
LEARN ABOUT CENTOS
ppi::token::quote
PPI::Token::Quote(3) User Contributed Perl Documentation PPI::Token::Quote(3)
NAME
PPI::Token::Quote - String quote abstract base class
INHERITANCE
PPI::Token::Quote
isa PPI::Token
isa PPI::Element
DESCRIPTION
The "PPI::Token::Quote" class is never instantiated, and simply provides a common abstract base class for the four quote classes. In PPI,
a "quote" is limited to only the quote-like things that themselves directly represent a string. (although this includes double quotes with
interpolated elements inside them).
The subclasses of "PPI::Token::Quote" are:
'' - PPI::Token::Quote::Single
"q{}" - PPI::Token::Quote::Literal
"" - PPI::Token::Quote::Double
"qq{}" - PPI::Token::Quote::Interpolate
The names are hopefully obvious enough not to have to explain what each class is here. See their respective pages for more details.
Please note that although the here-doc does represent a literal string, it is such a nasty piece of work that in PPI it is given the honor
of its own token class (PPI::Token::HereDoc).
METHODS
string
The "string" method is provided by all four ::Quote classes. It won't get you the actual literal Perl value, but it will strip off the
wrapping of the quotes.
# The following all return foo from the ->string method
'foo'
"foo"
q{foo}
qq <foo>
literal
The "literal" method is provided by ::Quote:Literal and ::Quote::Single. This returns the value of the string as Perl sees it: without the
quote marks and with "\" and "'" resolved to "" and "'".
The "literal" method is not implemented by ::Quote::Double or ::Quote::Interpolate yet.
SUPPORT
See the support section in the main module.
AUTHOR
Adam Kennedy <adamk@cpan.org>
COPYRIGHT
Copyright 2001 - 2011 Adam Kennedy.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
perl v5.16.3 2011-02-26 PPI::Token::Quote(3)