Timothy,
That worked like a charm. Thank you so much for the help.
-Ryan
On Thu, Aug 4, 2011 at 4:41 AM, timothy adigun <2teezp...@gmail.com> wrote:
> Hi Ryan,
> Try the the code below, it should help.
>
> ==========<CODE>=============
>
> #!/usr/bin/perl -w
> use strict;
>
> my $ln="";
> my ($yr,$cat,$win)=("","","");
> my $filename="New_output.txt";
> chomp(my $raw_file=<@ARGV>);
>
> open READFILE,"<","$raw_file" or die "can't open $!";
> open OUTPUTFILE,">","$filename" or die "cannot read $!";
> while(<READFILE>){chomp;
> $ln.="\n" if /^\W.?+$/;
> if(/^\d{4}/){$yr=$&;} # get the year
> if(/^[A-Z].+/){ $cat=$&; # get the Category
> $cat=join"",split /,/,$cat; # remove the comma in front
> $ln.=" $yr: ".$cat; # add both the year and Category
> }
> if(/\--.+/){$win=$`; # get the winner
> $win=join"",split /[\*,\"]/,$win;
> $ln.=": ".$win."\n"; #### If you use "$ln.=": ".$win. $&. "\n";"
> #### you get "-- It Happened One Night {""Peter Warne""}",etc added to
> what you have
> }
> }
> print OUTPUTFILE $ln;
> close OUTPUTFILE;
> close READFILE;
> ============================================================
> I used special match variables ($`, $&, and $'), which means
> $` ==> before match variable,
> $& ==> match variable and
> $' ==> after match variable.
> If the code doesn't like you want it you might have to play around with
> regular expressions!
> Regards.
>
> On Thu, Aug 4, 2011 at 2:38 AM, Ryan Lagola <carped...@live.com> wrote:
>
> > Hello,
> > I have been scratching my head on this problem and was wondering if
> someone
> > can help me out. Basically I need to take a raw list of data (a snippet
> of
> > it is below my email) and create another file with the information
> > formatted
> > in the following format: "Date: Category: Winner." The example of the
> > finished file is as follows:
> >
> > 1934: Actor: Clark Gable
> > 1934: Actress: Claudette Colbert
> > 1934: Art Direction: The Merry Widow
> >
> > As I am not a programmer by nature, I'm trying to figure out how to work
> > out
> > the logic of this program. The "Date" does not repeat with each category
> > but only changes when the next year of results is displayed in the data
> > file. How do I setup my logic to support this? Any help that can be
> > provided would be much appreciated.
> >
> > Just an FYI - here is my crack at finding the lines that match each
> > attribute:
> > Date: print $_ if $_ =~ /^(\d{4})*/
> > #look for four digits at the beginning of a string
> > Category: print $_ if $_ =~ /^[A-Z]+/
> > #look for one or more all caps characters at the beginning of a
> string
> > Winner: print $_ if $_ =~ /(\*)*(--)/
> > #look for a field that starts with an asterisks and contains
> "--"
> >
> > I am open to comments on my regular expressions. Thanks!
> >
> >
> > ==================== SNIPPET OF RAW DATA FILE ====================
> >
> > 1934 (7th),
> > ACTOR,
> > *,"Clark Gable -- It Happened One Night {""Peter Warne""}"
> > ACTRESS,
> > *,"Claudette Colbert -- It Happened One Night {""Ellie Andrews""}"
> > ART DIRECTION,
> > *,"The Merry Widow -- Cedric Gibbons, Fredric Hope"
> > ,[NOTE: won by two votes]
> > ASSISTANT DIRECTOR,
> > *,Viva Villa! -- John Waters
> > CINEMATOGRAPHY,per
> > *,Cleopatra -- Vicxtor Milner
> > DIRECTING,
> > *,It Happened One Night -- Frank Capra
> > FILM EDITING,
> > *,Eskimo -- Conrad Nervig
> > MUSIC (Scoring),
> > *,"One Night of Love -- Columbia Studio Music Department, Louis Silvers,
> > head of department (Thematic Music by Victor Schertzinger and Gus Kahn)"
> > MUSIC (Song),
> > *,"""The Continental"" from The Gay Divorcee -- Music by Con Conrad;
> Lyrics
> > by Herb Magidson"
> > OUTSTANDING PRODUCTION,
> > *,It Happened One Night -- Columbia
> > SHORT SUBJECT (Cartoon),
> > *,"The Tortoise and the Hare -- Walt Disney, Producer"
> > SHORT SUBJECT (Comedy),
> > *,"La Cucaracha -- Kenneth Macgowan, Producer"
> > SHORT SUBJECT (Novelty),
> > *,"City of Wax -- Stacy Woodard and Horace Woodard, Producers"
> > SOUND RECORDING,
> > *,"One Night of Love -- Columbia Studio Sound Department, John Livadary,
> > Sound Director"
> > WRITING (Adaptation),
> > *,It Happened One Night -- Robert Riskin
> > WRITING (Original Story),
> > *,Manhattan Melodrama -- Arthur Caesar
> > SPECIAL AWARD,
> > *,"To Shirley Temple, in grateful recognition of her outstanding
> > contribution to screen entertainment during the year 1934."
> > SCIENTIFIC OR TECHNICAL AWARD (Class II),
> > *,"To ELECTRICAL RESEARCH PRODUCTS, INC. for their development of the
> > Vertical Cut Disc Method of recording sound for motion pictures (hill and
> > dale recording). [Sound]"
> > SCIENTIFIC OR TECHNICAL AWARD (Class III),
> > *,"To COLUMBIA PICTURES CORPORATION for their application of the Vertical
> > Cut Disc Method (hill and dale recording) to actual studio production,
> with
> > their recording of the sound on the picture One Night of Love. [Sound]"
> > *,To BELL AND HOWELL COMPANY for their development of the Bell and Howell
> > Fully Automatic Sound and Picture Printer. [Laboratory]
> > ,
> > 1935 (8th),
> > ACTOR,
> > *,"Victor McLaglen -- The Informer {""Gypo Nolan""}"
> > ACTRESS,
> > *,"Bette Davis -- Dangerous {""Joyce Heath""}"
> > ART DIRECTION,
> > *,The Dark Angel -- Richard Day
> > ASSISTANT DIRECTOR,
> > *,"The Lives of a Bengal Lancer -- Clem Beauchamp, Paul Wing"
> > CINEMATOGRAPHY,
> > *,A Midsummer Night's Dream -- Hal Mohr
> > ,[NOTE: THIS IS NOT AN OFFICIAL NOMINATION. Write-in candidate.]
> > DANCE DIRECTION,
> > *,"Dave Gould -- ""I've Got a Feeling You're Fooling"" number from
> Broadway
> > Melody of 1936; and ""Straw Hat"" number from Folies Bergere"
> > DIRECTING,
> > *,The Informer -- John Ford
> > FILM EDITING,
> > *,A Midsummer Night's Dream -- Ralph Dawson
> > MUSIC (Scoring),
> > *,"The Informer -- RKO Radio Studio Music Department, Max Steiner, head
> of
> > department (Score by Max Steiner)"
> > MUSIC (Song),
> > *,"""Lullaby of Broadway"" from Gold Diggers of 1935 -- Music by Harry
> > Warren; Lyrics by Al Dubin"
> > OUTSTANDING PRODUCTION,
> > *,Mutiny on the Bounty -- Metro-Goldwyn-Mayer
> > SHORT SUBJECT (Cartoon),
> > *,"Three Orphan Kittens -- Walt Disney, Producer"
> > SHORT SUBJECT (Comedy),
> > *,"How to Sleep -- Jack Chertok, Producer"
> > SHORT SUBJECT (Novelty),
> > *,Wings over Mt. Everest -- Gaumont British and Skibo Productions
> > SOUND RECORDING,
> > *,"Naughty Marietta -- Metro-Goldwyn-Mayer Studio Sound Department,
> Douglas
> > Shearer, Sound Director"
> > WRITING (Original Story),
> > *,"The Scoundrel -- Ben Hecht, Charles MacArthur"
> > WRITING (Screenplay),
> > *,The Informer -- Dudley Nichols
> > ,"[NOTE: Mr. Nichols initially refused the award, but Academy records
> > indicate that he was in possession of a statuette by 1949.]"
> > SPECIAL AWARD,
> > *,"To David Wark Griffith, for his distinguished creative achievements as
> > director and producer and his invaluable initiative and lasting
> > contributions to the progress of the motion picture arts."
> > SCIENTIFIC OR TECHNICAL AWARD (Class II),
> > *,To AGFA ANSCO CORPORATION for their development of the Agfa infra-red
> > film. [Film]
> > *,To EASTMAN KODAK COMPANY for their development of the Eastman
> > Pola-Screen.
> > [Lenses and Filters]
> > SCIENTIFIC OR TECHNICAL AWARD (Class III),
> > *,"To METRO-GOLDWYN-MAYER STUDIO for the development of anti-directional
> > negative and positive development by means of jet turbulation, and the
> > application of the method to all negative and print processing of the
> > entire
> > product of a major producing company. [Laboratory]"
> > *,"To WILLIAM A. MUELLER of Warner Bros.-First National Studio Sound
> > Department for his method of dubbing, in which the level of the dialogue
> > automatically controls the level of the accompanying music and sound
> > effects. [Sound]"
> > *,"To MOLE-RICHARDSON COMPANY for their development of the ""Solar-spot""
> > spot lamps. [Lighting]"
> > *,To DOUGLAS SHEARER and METRO-GOLDWYN-MAYER STUDIO SOUND DEPARTMENT for
> > their automatic control system for cameras and sound recording machines
> and
> > auxiliary stage equipment. [Stage Operations]
> > *,"To ELECTRICAL RESEARCH PRODUCTS, INC. for their study and development
> of
> > equipment to analyze and measure flutter resulting from the travel of the
> > film through the mechanisms used in the recording and reproduction of
> > sound.
> > [Sound]"
> > *,"To PARAMOUNT PRODUCTIONS, INC. for the design and construction of the
> > Paramount transparency air turbine developing machine. [Laboratory]"
> > *,"To NATHAN LEVINSON, Director of Sound Recording for Warner Bros.-First
> > National Studio, for the method of intercutting variable density and
> > variable area sound tracks to secure an increase in the effective volume
> > range of sound recorded for motion pictures. [Sound]"
> > ,
> >
>
