if (/\[<\?xml/../^\]/)
{ # Read all those lines from file between (and including) lines containing "<?xml" to "]"
if (/\[<\?xml/)
{ # If line contains "<?xml"
$f=0; # set a flag to zero
s/.*?(\[<\?xml.*)/$1/; # Remove text before "<?xml" in line containing "<?xml", or rather keep text from "<?xml" till end of line
$x=$_; # Store the edited value in $x
print $x;
}
elsif (/<BATCH_ID>12345678519<\/BATCH_ID>/)
{ # Check if line contains <BATCH_ID>12345678519</BATCH_ID>
$f=1; # Set flag to one
print $x; print; # Print line containing "<?xml" and line containing batch id
}
elsif (!/\[<\?xml/ && !/<BATCH_ID>12345678519<\/BATCH_ID>/ && $f==1) { print } # If line doesnt contain "<?xml" and batch id and if flag is set to one, then print the line
elsif ($f==0) { next } # If flag is zero while processing a line, skip it.
}' helium-core.log # Process the file 'inputfile'
Instead of passin the batch id "12345678519" , I have multiple ID which I came to know wen i run the script. So wants to pass a batch ID in a variable to the perl prog above . Like
Hi Everyone,
I have a file with the below content:
File1.txt
======
###
###==> the below table was created for testing1 purpose;
###
create table 123
(
field1 date,
field2 char(10)
primary key(field1)
);
###
###==> the below table was created... (5 Replies)
Please help me on this.....
i have a file which has following content:
<IPCoreProducerConfig>
<Producer>
<config>
<key>machineId</key>
<value>machine1</value>
</config>
<config>
... (4 Replies)
Hi,
My requirement is to find a text and replace it with another in a XML file.
I am new to Unix,Please provide some suggestion to achieve.
Find:
<Style ss:ID="ColumnHeader1">
Replace with:
<Style ss:ID="ColumnHeader1">
<Borders>
<Border ss:Position="Bottom"... (4 Replies)
I'm using Mail::Internet module, which will basically filter through email content and extract the body of the message
my perl script to extract the body of the email
#!/usr/bin/perl -w
use Mail::Internet;
@lines = <STDIN>;
$mi_obj = new Mail::Internet();
... (2 Replies)
I have an input file with contents like:
./prbru6/12030613.LOG:24514|APPL|prbru6.8269.RTUDaemon.1|?|13:49:56|12/03/06|GMT+3|?|RTUServer Error:Count of Internal Error Qty (-1) < 0, for Audit group id - 1L5XVJ6DQE36AXL, after record number,1, File: EventAuditor.cc, Line: 394|? ... (5 Replies)
I need to create a xml file(master.xml) with contents from another xml files(children). I have below list of xml files in a temporary location (C:/temp/xmls)
1. child1.xml
2. child2.xml
Below is the content of the child1.xml & child2.xml files,
child1.xml
<root>
<emp>
... (3 Replies)
Hello All,
Hope you are doing well!!!!!
I have a small code in the below format in xml file:
<UML:ModelElement.taggedValue>
<UML:TaggedValue tag="documentation" value="This sequence

HLD_EA_0001X
HLD_DOORS_002X"/>
<UML:TaggedValue tag="documentation" value="This... (11 Replies)
I have an xml file with header as below.
<Provider xmlns="http://www.xyzx.gov/xyz" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.xyzx.gov/xyz xyz.xsd" SCHEMA_VERSION="2.5" PROVIDER="5">
I want to get the schema version here that is 2.5 and put in a... (7 Replies)
Discussion started by: Ariean
7 Replies
LEARN ABOUT DEBIAN
locale::language
Locale::Language(3perl) Perl Programmers Reference Guide Locale::Language(3perl)NAME
Locale::Language - standard codes for language identification
SYNOPSIS
use Locale::Language;
$lang = code2language('en'); # $lang gets 'English'
$code = language2code('French'); # $code gets 'fr'
@codes = all_language_codes();
@names = all_language_names();
DESCRIPTION
The "Locale::Language" module provides access to standard codes used for identifying languages, such as those as defined in ISO 639.
Most of the routines take an optional additional argument which specifies the code set to use. If not specified, the default ISO 639 two-
letter codes will be used.
SUPPORTED CODE SETS
There are several different code sets you can use for identifying languages. The ones currently supported are:
alpha-2
This is the set of two-letter (lowercase) codes from ISO 639, such as 'he' for Hebrew.
This code set is identified with the symbol "LOCALE_LANG_ALPHA_2".
This is the default code set.
alpha-3
This is the set of three-letter (lowercase) bibliographic codes from ISO 639, such as 'heb' for Hebrew.
This code set is identified with the symbol "LOCALE_LANG_ALPHA_3".
term
This is the set of three-letter (lowercase) terminologic codes from ISO 639.
This code set is identified with the symbol "LOCALE_LANG_TERM".
ROUTINES
code2language ( CODE [,CODESET] )
language2code ( NAME [,CODESET] )
language_code2code ( CODE ,CODESET ,CODESET2 )
all_language_codes ( [CODESET] )
all_language_names ( [CODESET] )
Locale::Language::rename_language ( CODE ,NEW_NAME [,CODESET] )
Locale::Language::add_language ( CODE ,NAME [,CODESET] )
Locale::Language::delete_language ( CODE [,CODESET] )
Locale::Language::add_language_alias ( NAME ,NEW_NAME )
Locale::Language::delete_language_alias ( NAME )
Locale::Language::rename_language_code ( CODE ,NEW_CODE [,CODESET] )
Locale::Language::add_language_code_alias ( CODE ,NEW_CODE [,CODESET] )
Locale::Language::delete_language_code_alias ( CODE [,CODESET] )
These routines are all documented in the Locale::Codes man page.
SEE ALSO
Locale::Codes
Locale::Constants
http://www.loc.gov/standards/iso639-2/
Source of the ISO 639 codes.
AUTHOR
See Locale::Codes for full author history.
Currently maintained by Sullivan Beck (sbeck@cpan.org).
COPYRIGHT
Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
Copyright (c) 2001-2010 Neil Bowers
Copyright (c) 2010-2011 Sullivan Beck
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2011-09-26 Locale::Language(3perl)
01-18-2012
