Home Accessibility Courses Twitter The Mouth Facebook Resources Site Map About Us Contact
 
For 2021 - online Python 3 training - see ((here)).

Our plans were to retire in summer 2020 and see the world, but Coronavirus has lead us into a lot of lockdown programming in Python 3 and PHP 7.
We can now offer tailored online training - small groups, real tutors - works really well for groups of 4 to 14 delegates. Anywhere in the world; course language English.

Please ask about private 'maintenance' training for Python 2, Tcl, Perl, PHP, Lua, etc.
File open and read in Perl - modernisation

Some updates on file opening and reading in Perl ...

1. The original open function was good, but technically questionable in that the second parameter includes (as a single string) both the name of the file and an indicator as to whether it's being opened for read or write. The newer (three parameter form) of open, in which the read / write indicator has been separated out and the file name moved to a third parameter has been around a while now - and is recommended unless you're required to support very old Perl versions.

2. The <> operator - surrounding a file handle - has always been an interesting one to explain during courses, as it's so different to a more traditional function call. The readline function is a more conventional alternative these days - although you are required to pass in the file handle as a "typeglob" to it. Me thinks that's one difficult explanation removed, but perhaps another added in!

So
  open (FH,$filename) or die ("$! - $filename\n");
or
  open (FH,"<$filename") or die ("$! - $filename\n");
is replacable / improved by
  open (FH,"<",$filename) or die ("$! - $filename\n");

And
  while ($line = <FH>) {
may be replaced by
  while ($line = readline(*FH)) {
(but I am not claiming that as a universal improvement)

See full source [here]. And see [here] for a discussion of how / when you should move forward to using some of these newer features of Perl.

(written 2010-06-19)

 
Associated topics are indexed as below, or enter http://melksh.am/nnnn for individual articles
P207 - Perl - File Handling
  [12] How many people in a room? - (2004-08-12)
  [114] Relative or absolute milkman - (2004-11-10)
  [255] STDIN, STDOUT, STDERR and DATA - Perl file handles - (2005-03-23)
  [616] printf - a flawed but useful function - (2006-02-22)
  [618] Perl - its up to YOU to check your file opened - (2006-02-23)
  [702] Iterators - expressions tha change each time you call them - (2006-04-27)
  [867] Being sure to be positive in Perl - (2006-09-15)
  [1312] Some one line Perl tips and techniques - (2007-08-21)
  [1416] Good, steady, simple example - Perl file handling - (2007-10-30)
  [1442] Reading a file multiple times - file pointers - (2007-11-23)
  [1467] stdout v stderr (Tcl, Perl, Shell) - (2007-12-10)
  [1709] There is more that one way - Perl - (2008-07-14)
  [1841] Formatting with a leading + / Lua and Perl - (2008-10-15)
  [1860] Seven new intermediate Perl examples - (2008-10-30)
  [1861] Reactive (dynamic) formatting in Perl - (2008-10-31)
  [2233] Transforming data in Perl using lists of lists and hashes of hashes - (2009-06-12)
  [2405] But I am reading from a file - no need to prompt (Perl) - (2009-09-14)
  [2821] Chancellor George Osborne inspires Perl Program - (2010-06-22)
  [2833] Fresh Perl Teaching Examples - part 2 of 3 - (2010-06-27)
  [3326] Finding your big files in Perl - design considerations beyond the course environment - (2011-06-14)
  [3548] Dark mornings, dog update, and Python and Lua courses before Christmas - (2011-12-10)
  [3830] Traversing a directory in Perl - (2012-08-08)
  [3839] Spraying data from one incoming to series of outgoing files in Perl - (2012-08-15)


Back to
Setting a safety net or fallback value in Perl
Previous and next
or
Horse's mouth home
Forward to
Some more pictures ...
Some other Articles
Python training courses for use with ESRI ArcMap software
Netiquette for forum newcomers
Some more pictures ...
File open and read in Perl - modernisation
Setting a safety net or fallback value in Perl
Intelligent Matching in Perl
switch and case, or given and when in Perl
Python - splitting and joining strings
Iterating over a Perl list and changing all items
4759 posts, page by page
Link to page ... 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96 at 50 posts per page


This is a page archived from The Horse's Mouth at http://www.wellho.net/horse/ - the diary and writings of Graham Ellis. Every attempt was made to provide current information at the time the page was written, but things do move forward in our business - new software releases, price changes, new techniques. Please check back via our main site for current courses, prices, versions, etc - any mention of a price in "The Horse's Mouth" cannot be taken as an offer to supply at that price.

Link to Ezine home page (for reading).
Link to Blogging home page (to add comments).

You can Add a comment or ranking to this page

© WELL HOUSE CONSULTANTS LTD., 2021: 48 Spa Road • Melksham, Wiltshire • United Kingdom • SN12 7NY
PH: 01144 1225 708225 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho

PAGE: http://www.wellho.net/mouth/2818_Fil ... ation.html • PAGE BUILT: Sun Oct 11 16:07:41 2020 • BUILD SYSTEM: JelliaJamb