Lines Matching full:lines
62 my @lines;
66 push @lines,$line;
74 while ( my $line = shift @lines ) {
93 # modifies $filename, inserting $line_to_insert unless one or more lines
112 my @lines;
125 push (@lines,$line);
144 while (my $line = shift @lines) {
167 # modifies $filename, inserting $line_to_insert unless one or more lines
186 my @lines;
199 push (@lines,$line);
218 while (my $line = shift @lines) {
259 # appending $line_to_append unless one or more lines in the file matches
272 # after you delete all Options lines from said config file.
311 # pre-pending $line_to:prepend unless one or more lines in the file matches
329 my @lines;
335 push (@lines,$line);
343 while (my $line = shift @lines) {
365 # replacing any lines matching $pattern with $line_to_switch_in.
367 # It returns the number of lines it replaced (or would have replaced, if
375 # You'd like to replace any Options lines in Apache's config file with:
422 # It returns the number of lines it replaced (or would have replaced, if
493 # modifies $filename, acting on only lines that match $pattern, replacing a
499 # replaces all "Includes" with "IncludesNoExec" on Apache Options lines.
501 # It returns the number of lines it altered (or would have replaced, if
626 # This subroutine returns lines in a file matching a given regular
633 my @lines = ();
639 push(@lines, $_);
643 return @lines;
647 return scalar (@lines);
668 my @lines;
674 # Read all lines into one scalar.
675 @lines = <CHUNK_FILE>;
678 foreach my $line ( @lines ) {
696 # any lines matching $pattern with a "hash-commented" version, like this:
764 # removing any commenting from lines that match $pattern.
825 # lines matching $pattern. It uses B_replace_line to do this.
832 # You'd like to remove any timeout= lines in /etc/lilo.conf, so that your
858 my @lines;
864 # Read all lines into one scalar.
865 @lines = <OLDFILE>;
867 foreach my $line ( @lines ) {
915 # on any non-commented lines
938 my @lines=&B_return_matched_lines($file, $inputRegex);
940 return &B_getValueFromString($inputRegex,join('/n',@lines));
946 # on any non-commented lines
971 my @lines=split(/\n/,$inputString);
975 foreach my $line (grep(/$inputRegex/,@lines)) {
1017 # trim off any leading and trailing new lines, regexes separated for "clarity"
1106 my @lines = <TODO_FLAGS>;
1107 foreach my $line (@lines) {