get_file_suffix

Extract the suffix associated with a file name.

Prototype

load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"  ; This library is automatically loaded
                                                             ; from NCL V6.2.0 onward.
                                                             ; No need for user to explicitly load.

	function get_file_suffix (
		fileName [1] : string,   
		opt      [1] : integer   
	)

Arguments

Name of the file.

option: =0 return the rightmost file suffix; =1 return all suffix portions

Return value

A string specifying the suffix. Returned as an attribute is the name of the file without the returned suffix.

Description

Extracts one or more suffixes associated with a file name. Also, return the name of the file without the extracted suffix(es) as an attribute named fBase

Examples

The following require that contributed.ncl be loaded prior to invoking the function.

       load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"

Example 1

   s   = "x.nc"
   sfx = get_file_suffix(s,0)     ; sfx = ".nc"

   s   = "x_apple.1958-1999.nc"
   sfx = get_file_suffix(s,0)     ; sfx = ".nc"

   s   = "x_apple.1958-1999.nc"
   sfx = get_file_suffix(s,1)     ; sfx = ".1958-1999.nc"

   s   = "x_apple.1958-1999.nc.gz"
   sfx = get_file_suffix(s,0)     ; sfx = ".gz"

Check to see if a file has a ".gz" suffix. If so, Use the system to invoke gzip to un-zip the file.

   fName  = "sample.1958-2005.nc.gz"
   suffix = get_file_suffix(fName, 0)  ; ".gz"
   if (suffix.eq.".gz") then
       system("gzip -d "+fName)
       fileName = suffix@fBase            ; sample.1958-2005.nc
   else
       fileName = fName
   end if
   f = addfile(fileName, "r")