|
|
Sponsored Content
Top Forums
Shell Programming and Scripting
Perl - Sort and Count foreach line
Post 302518247 by sureshcisco on Friday 29th of April 2011 03:16:48 AM
04-29-2011
|
|
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I have two arrays
@nextArray contains some files like
\main\1\Xul.xml@@\main\galileo_integration_sjc\0
\main\1\PortToStorageDialog.xml@@\main\galileo_integration_sjc\0
.
.
.
\main\1\PreferencesDialog.xml@@\main\galileo_integration_sjc\0
@otherArray contains some files like
... (2 Replies)
Discussion started by: nmattam
2 Replies
2. Shell Programming and Scripting
#!/usr/bin/perl
use Shell;
open THEFILE, "C:\galileo_integration.txt" || die "Couldnt open the file!";
@wholeThing = <THEFILE>;
close THEFILE;
foreach $line (@wholeThing){
if ($line =~ m/\\0$/){
@nextThing = $line;
if ($line =~ s/\\0/\\LATEST/g){
@otherThing =... (2 Replies)
Discussion started by: nmattam
2 Replies
3. Shell Programming and Scripting
I have a simple csh script that has a simple foreach loop that goes over numbers, from 1 to 10:
foreach n(1 2 3 4 5 6 7 8 9 10)
...
end
Now I want to expand the script to work on over a hundred consecutive n values. Obviously, typing all the numbers between 1 to 100 is an unreasonable... (7 Replies)
Discussion started by: mcbenus
7 Replies
4. Programming
Hello All,
Im a Hardware engineer, I have written this script to automate my job. I got stuck in the following location.
CODE:
..
..
...
foreach $key(keys %arr_hash) {
my ($loc,$ind,$add) = split /,/, $arr_hash{$key};
&create_verilog($key, $loc, $ind ,$add);
}
sub create_verilog{... (2 Replies)
Discussion started by: riyasnr007
2 Replies
5. Shell Programming and Scripting
I want to sort lines by how many times a string occurs in each line (the most times first).
I know how to do this in two passes (add a count field in the first pass then sort on it in the second pass).
However, can it be done more optimally with a single AWK command? My AWK has improved... (11 Replies)
Discussion started by: Michael Stora
11 Replies
6. Shell Programming and Scripting
My script is as below:
my $tile_list = `egrep "FCFP_TILE_LIST.*=" ${BudgetDir}/tile.params | sed -e 's/FCFP_TILE_LIST//' | sed -e 's/=//'`;
print "Tile List = ".$tile_list."\n";
my @tiles = split(/\s+/, $tile_list);
$unconst_out = "${DestDir}/Unconstrained_ports.rpt";
$check_tim_out =... (2 Replies)
Discussion started by: kuchi7
2 Replies
7. Shell Programming and Scripting
Need perl or shell script to sort vertical lines to horizontal line in csv format
My file like below
-------------------------
================================================================================
PATH PINKY1000#I1-1-ZENTA1000-2#I7-1-ASON-SBR-UP-943113845 ... (4 Replies)
Discussion started by: sreedhargouda.h
4 Replies
8. Shell Programming and Scripting
Hi,
I am quite new to perl scripting.
I have a dat file (datFile) from which I am pulling only first column and saving the output to a new file (f). From that file (f) I am removing blank lines and saving it to new file (datFile1). I am able to get the count of $f file in variable $cnt. But... (4 Replies)
Discussion started by: Neethu
4 Replies
9. UNIX for Advanced & Expert Users
Hi Folks :)
I have a .txt file with thousands of words. I'm trying to sort the lines in order based on number of words per line.
Example
from:
word
word word word
word word
word word word word
word
word word word
word word
to desired output:
word (2 Replies)
Discussion started by: martinsmith
2 Replies
10. Shell Programming and Scripting
Experts - Any advice on how to get a hash value in a foreach loop?
Values print correctly on standalone print statements, but I can't access value
in foreach loop.
See sample code below and thanks in advance.
foreach my $z (sort keys %hash) {
for $y (@{$hash{$z}}) {
print "$z... (6 Replies)
Discussion started by: timj123
6 Replies
LEARN ABOUT DEBIAN
marc::lint::codedata
MARC::Lint::CodeData(3pm) User Contributed Perl Documentation MARC::Lint::CodeData(3pm) NAME
MARC::Lint::CodeData -- Contains codes from the MARC code lists for Geographic Areas, Languages, and Countries. DESCRIPTION
Code data is used for validating fields 008, 040, 041, and 043. Also, sources for subfield 2 in 600-651 and 655. Stores codes in hashes, %MARC::Lint::CodeData::[name]. Note: According to the official MARC documentation, Sears is not a valid 655 term. The code data below treats it as valid, in anticipation of a change in the official documentation. SYNOPSIS
use MARC::Lint::CodeData; #Should provide access to the following: #%MARC::Lint::CodeData::GeogAreaCodes; #%MARC::Lint::CodeData::ObsoleteGeogAreaCodes; #%MARC::Lint::CodeData::LanguageCodes; #%MARC::Lint::CodeData::ObsoleteLanguageCodes; #%MARC::Lint::CodeData::CountryCodes; #%MARC::Lint::CodeData::ObsoleteCountryCodes; #%MARC::Lint::CodeData::Sources600_651; #%MARC::Lint::CodeData::ObsoleteSources600_651; #%MARC::Lint::CodeData::Sources655; #%MARC::Lint::CodeData::ObsoleteSources655; #or, import specific code list data use MARC::Lint::CodeData qw(%GeogAreaCodes); my $gac = "n-us---"; my $validgac = 1 if ($GeogAreaCodes{$gac}); print "Geographic Area Code $gac is valid " if $validgac; EXPORT
None by default. @EXPORT_OK: %GeogAreaCodes, %ObsoleteGeogAreaCodes, %LanguageCodes, %ObsoleteLanguageCodes, %CountryCodes, %ObsoleteCountryCodes, %Sources600_651, %ObsoleteSources600_651, %Sources655, %ObsoleteSources655. TO DO
Update codes as needed (see <http://www.loc.gov/marc/>). Add other codes for MARC Code Lists for Relators, Sources, Description Conventions. Determine what to do about 600-655 codes with indicators (cash, lcsh, lcshac, mesh, nal, and rvm). Currently, these are duplicated in valid and obsolete hashes. Validation routines should probably treat these differently due to large numbers of records using these codes, created before the indicators were allowed. Determine whether three blank spaces should be in the LanguageCodes (for 008 validation) or not. If it is here, then 041 would be allowed to have three blank spaces as a valid code (though other checks would report the error--spaces at the beginning and ending of a subfield and multiple spaces in a field where such a thing is not allowed). SEE ALSO MARC::Lint MARC::Lintadditions (for check_040, check_041, check_043 using these codes) MARC::Errorchecks (for 008 validation using these codes) <http://www.loc.gov/marc/> for the official code lists. The following (should be included in the distribution package for this package): countrycodelistclean.pl gaccleanupscript.pl languagecodelistclean.pl The scripts above take the MARC code list ASCII version as input. They output tab-separated codes for updating the data below. VERSION HISTORY
Version 1.28: Updated May 2, 2009. -Added new sources codes from Technical Notice of Oct. 10, 2008. -Added new sources codes from Technical Notice of Dec. 16, 2008. -Added new language codes from Technical Notice of Jan. 6, 2009 (mol moved to ObsoleteLanguageCodes). -Added new sources codes from Technical Notice of Jan. 23, 2009. -Added new sources codes from Technical Notice of Feb. 19, 2009. -Added new sources codes from Technical Notice of Apr. 22, 2009. Version 1.27: Updated Aug. 14, 2008. -Added new sources codes from Technical Notice of July 25, 2008. Version 1.26: Updated July 6, 2008. -Added new language codes from Technical Notice of July 1, 2008. -Moved obsolete language codes 'scc' and 'scr' to the obsolete language hash. Version 1.25: Updated Apr. 28, 2008. -Added new sources codes from Technical Notice of Apr. 25, 2008. Version 1.24: Updated Mar. 30, 2008. -Added new sources codes from Technical Notice of Mar. 28, 2008. Version 1.23: Updated Mar. 26, 2008. -Added new country and GAC codes from Technical Notice of Mar. 25, 2008. Version 1.22: Updated Jan. 21, 2008. -Added new sources codes from Technical Notice of Jan. 18, 2008. Version 1.21: Updated Nov. 30, 2007. -Added new sources codes from Technical Notice of Nov. 30, 2007. Version 1.20: Updated Nov. 19, 2007. -Added new language codes from Technical Notice of Nov. 16, 2007. Version 1.19: Updated Oct. 22, 2007. -Added new language codes from Technical Notice of Oct. 22, 2007. Version 1.18: Updated Aug. 14, 2007. -Added new source codes from Technical Notice of Aug. 13, 2007. Version 1.17: Updated July 16, 2007. -Added new source codes from Technical Notice of July 13, 2007. Version 1.16: Updated Apr. 18, 2007. -Added new source codes from Technical Notice of Apr. 5, 2007. Version 1.15: Updated Feb. 28, 2007. -Added new country and geographic codes from Technical Notice of Feb. 28, 2007. -Added 'yu ' to list of obsolete codes. Version 1.14: Updated Jan. 8, 2007. -Added new source codes from Technical Notice of Jan. 5, 2007. Version 1.13: Updated Nov. 19, 2006. -Added new source codes from Technical Notice of Nov. 14, 2006. Version 1.12: Updated Oct. 20, 2006. -Added new source code from Technical Notice of Oct. 19, 2006. Version 1.11: Updated Oct. 18, 2006. -Added new source codes from Technical Notice of Oct. 17, 2006. Version 1.10: Updated Aug. 30, 2006. -Added new source codes from Technical Notice of Aug. 29, 2006. Version 1.09: Updated June 26, 2006. -Added new source codes from Technical Notice of June 23, 2006. Version 1.08: Updated May 30, 2006. -Added new source codes from Technical Notice of May 26, 2006. Version 1.07: Updated Mar. 13, 2006. -Added new source codes from Technical Notice of Mar. 10, 2006. Version 1.06: Updated Feb. 23, 2006. -Added new language codes from Technical Notice of Feb 23, 2006. -Alphabetized language codes. Version 1.05: Updated Jan. 11, 2006. -Added new sources codes from Technical Notice of Jan. 10, 2006. Version 1.04: Updated Oct. 13, 2005. -Added new sources codes from Technical Notice of Oct. 12, 2005. Version 1.03: Updated Aug. 31, 2005. -Added new language codes for Ainu and Southern Altai (August 30, 2005 technical notice) Version 1.02: Updated June 21-July 12, 2005. Released (to CPAN) with new version of MARC::Errorchecks. -Added GAC and Country code changes for Australia (July 12, 2005 update) -Added 6xx subfield 2 source code data for June 17, 2005 update. -Updated valid Language codes to June 2, 2005 changes. Version 1.01: Updated Jan. 5-Feb. 10, 2005. Released (to CPAN) Feb. 13, 2005 (with new version of MARC::Errorchecks). -Added code list data for 600-651 subfield 2 and for 655 subfield 2 sources. -Updated codes based on changes made Jan. 19 (languages), Feb. 2 (sources), Feb. 9 (sources). Version 1.00 (original version): First release, Dec. 5, 2004. Uploaded to SourceForge CVS, Jan. 3, 2005. -Included in MARC::Errorchecks distribution on CPAN. -Used by MARC::Lintadditions. LICENSE
This code may be distributed under the same terms as Perl itself. Please note that this module is not a product of or supported by the employers of the various contributors to the code. AUTHOR
Bryan Baldus eijabb@cpan.org Copyright (c) 2004-2008. perl v5.10.0 2009-09-01 MARC::Lint::CodeData(3pm)