Sponsored Content
Top Forums UNIX for Dummies Questions & Answers Need tips on file manipulation Post 302365273 by thegeek on Monday 26th of October 2009 01:38:35 PM
Old 10-26-2009
Code:
while(<>)  {
    if ( /^\d{8}$/ )  {
        close FH;
        $filename = $_;
        open FH, ">$filename";
    }  else  {
        print FH "$_";
    }
}

It will work, but this is not an efficient or standard way to do things.
 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

File manipulation

I'm new to Unix and want to know if this type of file processing is feasible. I have a master file downloaded on Sundays. From Monday to Saturday a file containing changes and adds and a file containing deletes are downloaded. I'd like to apply the mon-sat files to the master file so that I do not... (3 Replies)
Discussion started by: ssp7423
3 Replies

2. Shell Programming and Scripting

File manipulation

To all Guru I have a file like test.txt 111,122,212,123 data11,date12, data13, data14...data1n data21,date22, data23, data24...data2n data31,date32, data33, data34...data3n ... ... .. datan1,daten2, datan3, datan4...datann END I have to load this data into oracle , where first... (1 Reply)
Discussion started by: u263066
1 Replies

3. Shell Programming and Scripting

file manipulation

Hi, I have a file with 3 lines like aaaabb abcdef wertyu now i want to insert a new character "Q" in the 3rd position of every line of the file.... I found a way to do it but i felt it is little complex. Do you guys have any ideas (4 Replies)
Discussion started by: siddu_chittari
4 Replies

4. Shell Programming and Scripting

File Manipulation

Hi, i have a file with fixed record length with the following content (only one sentence) 12345678901234567890123456789012345678901234567890 12345678 87654321 hugo meyer friedhofpaul the numbers above are only the column-positions and not part of the file! Now i want... (2 Replies)
Discussion started by: FranzB
2 Replies

5. Shell Programming and Scripting

File manipulation

Hello, I have a file of which six lines are given below: <a="b" value="N"/> <a="c" value="x1"/> <a="b" value="N"/> <a="c" value="x2"/> <a="b" value="Y"/> <a="c" value="x3"/> I need one file with all the lines just below where value="N"... (4 Replies)
Discussion started by: shekhar2010us
4 Replies

6. UNIX for Dummies Questions & Answers

file manipulation

Is there a way to cp/mv a set of files in a directory + sub directories without cp/mv'ing the sub-directories as well? eg. To copy all the *.pdf files in a directory + sub directory into a specified folder i would invoke " cp -R *.pdf ~/Home/ however, this would copy the subdirectories as... (4 Replies)
Discussion started by: grkness
4 Replies

7. UNIX for Dummies Questions & Answers

Filtering records from 1 file based on some manipulation doen on second file

Hi, I am looking for an awk script which should help me to meet the following requirement: File1 has records in following format INF: FAILEd RECORD AB1234 INF: FAILEd RECORD PQ1145 INF: FAILEd RECORD AB3215 INF: FAILEd RECORD AB6114 ............................ (2 Replies)
Discussion started by: mintu41
2 Replies

8. Shell Programming and Scripting

Awk to convert a text file to CSV file with some string manipulation

Hi , I have a simple text file with contents as below: 12345678900 971,76 4234560890 22345678900 5971,72 5234560990 32345678900 71,12 6234560190 the new csv-file should be like: Column1;Column2;Column3;Column4;Column5 123456;78900;971,76;423456;0890... (9 Replies)
Discussion started by: FreddyDaKing
9 Replies

9. Shell Programming and Scripting

Populating File data with custom manipulation on file names

Hi, I am confused how to proceed firther please find the problem below: Input Files: DCIA_GEOG_DATA_OCEAN.TXT DCIA_GEOG_DATA_MCRO.TXT DCIA_GEOG_DATA_CVAS.TXT DCIA_GEOG_DATA_MCR.TXT Output File Name: MMA_RFC_GEOG_NAM_DIM_LOD.txt Sample Record(DCIA_GEOG_DATA_OCEAN.TXT):(Layout same for... (4 Replies)
Discussion started by: Arun Mishra
4 Replies

10. Shell Programming and Scripting

File manipulation

Hi, I want to update the file with a value at a particular position $cat test.txt COL1=TEST COL2= COL3=AADSDFSDFDSFDFDF I want to update the file with a value for COL2. After update, the file should be like this $cat test.txt COL1=TEST COL2=1 COL3=AADSDFSDFDSFDFDF here 1... (9 Replies)
Discussion started by: vedanta
9 Replies
LedgerSMB::ScriptLib::Company(3pm)			User Contributed Perl Documentation			LedgerSMB::ScriptLib::Company(3pm)

NAME
LedgerSMB::ScriptLib::Company - LedgerSMB class defining the Controller functions, template instantiation and rendering for vendor and customer editing and display. This would also form the basis for other forms of company contacts. SYOPSIS
This module is the UI controller for the vendor DB access; it provides the View interface, as well as defines the Save vendor. Save vendor/customer will update or create as needed. METHODS
set_entity_class($request) returns int entity class Errors if not inherited. Inheriting classes MUST define this to set $entity_class appropriately. get_by_cc Populates the company area with info on the company, pulled up through the control code dispatch_legacy This is a semi-private method which interfaces with the old code. Note that as long as any other functions use this, the contact interface cannot be said to be safe for code caching. Not fully documented because this will go away as soon as possible. add_transaction Dispatches to the Add (AR or AP as appropriate) transaction screen. add_invoice Dispatches to the (sales or vendor, as appropriate) invoice screen. add_order Dispatches to the sales/purchase order screen. rfq Dispatches to the quotation/rfq screen new_company($request) returns object inheriting LedgerSMB::DBObject::Company This too must be defined in classes that inherit this class. get($self, $request, $user) Requires form var: id Extracts a single company from the database, using its company ID as the primary point of uniqueness. Shows (appropriate to user privileges) and allows editing of the company information. add_location Adds a location to the company as defined in the inherited object save_new_location Adds a location to the company as defined in the inherited object, not overwriting existing locations. generate_control_code Sets $company->{control_code} equal to the next in the series of entity_control values add This method creates a blank screen for entering a company's information. get_results($self, $request, $user) Requires form var: search_pattern Directly calls the database function search, and returns a set of all vendors found that match the search parameters. Search parameters search over address as well as vendor/Company name. history($request) Generates the filter screen for the customer/vendor history report. display_history($request) Displays the customer/vendor history based on criteria from the history filter screen. The following request variables are optionally set in the HTTP query string or request object. Search Criteria name: search string for company name contact_info: Search string for contact info, can match phone, fax, or email. salesperson: Search string for employee name in the salesperson field notes: Notes search. Not currently implemented meta_number: Exact match for customer/vendor number address_line: Search string for first or second line of address. city: Search string for city name state: Case insensitive, otherwise exact match for state or province zip: leading match for zip/mail code country_id: integer for country id. Exact match tartdate_from: Earliest date for startdate of entity credit account startdate_to: Lates date for entity credit accounts' start date type: either 'i' for invoice, 'o' for orders, 'q' for quotations from_date: Earliest date for the invoice/order to_date: Latest date for the invoice/order Unless otherwise noted, partial matches are sufficient. Control variables: inc_open: Include open invoices/orders. If not true, no open invoices are displayed inc_closed: Include closed invoices/orders. If not true, no closed invoices are displayed report_type: Either summary or detail Columns to display: l_partnumber: parts.partnumber l_sellprice: invoice/orderitems.sellprice l_curr: ar/ap/oe.curr l_unit: invoice/orderitems.unit l_deliverydate: invoice.deliverydate or orderitems.reqdate l_projectnumber: project.projectnumber l_serialnumber: invoice/orderitems.serialnumber csv_company_list($request) Generates CSV report (not working at present) save($self, $request, $user) Saves a company to the database. The function will update or insert a new company as needed, and will generate a new Company ID for the company if needed. save_credit($request) This inserts or updates a credit account of the sort listed here. save_credit_new($request) This inserts a new credit account. edit($request) Displays a company for editing. Needs the following to be set: entity_id, account_class, and meta_number. The account_class requireent is typically set during the construction of scripts which inherit this library. PRIVATE _render_main_screen($company) Pulls relevant data from db and renders the data entry screen for it. search($request) Renders the search criteria screen. save_contact($request) Saves contact info as per LedgerSMB::DBObject::Company::save_contact. delete_contact Deletes the selected contact info record Must include company_id or credit_id (credit_id used if both are provided) plus: * contact_class_id * contact * form_id delete_bank_acct Deletes the selected bank account record Required request variables: * bank_account_id * entity_id * form_id delete_location Deletes the selected contact info record Must include company_id or credit_id (credit_id used if both are provided) plus: * location_class_id * location_id * form_id edit_bank_acct($request) displays screen to a bank account Required data: bank_account_id bic iban save_contact_new($request) Saves contact info as a new line as per save_contact above. save_bank_account($request) Adds a bank account to a company and, if defined, an entity credit account. save_notes($request) Saves notes. entity_id or credit_id must be set, as must note_class, note, and subject. pricelist This returns and displays the pricelist. The id field is required. delete_price save_pricelist This routine saves the price matrix. For existing rows, valid_to, valid_from, price fields are saved. For the new row, the partnumber field matches the beginning of the part number, and the description is a full text search. pricelist_search_handle Handles the return from the parts search from the pricelist screen. COPYRIGHT
Copyright (c) 2009, the LedgerSMB Core Team. This is licensed under the GNU General Public License, version 2, or at your option any later version. Please see the accompanying License.txt for more information. perl v5.14.2 2012-03-28 LedgerSMB::ScriptLib::Company(3pm)
All times are GMT -4. The time now is 02:01 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy