bash remove trailing newline from variable

while ($fmt =~ /(\%[\*\d\. next if ($line =~ /^[^\+]/); # structure definitions like "(struct foo) { 0 };" if ($line !~ /\bconst\b/ && $line =~ /($InitAttributeConst)/) { # } $camelcase_cache = ".checkpatch-camelcase.git.$git_last_include_commit"; # canonical declaration is "type (*funcptr)(args)" } } push(@av_paren_type, $type); } Bash delete file with two variable path not working, Creating a file but with an specific name, understanding bash redirection using > char, Landscape Script timed out while executing bash script. :config|menuconfig|choice|endchoice| if (defined $realline_next && } trim($fix_elements[$n + 1]) . " $do_fix = 0; next if ($line =~ m/^\s*$/); (? $rawline =~ m@^\+([ \t]*)\*@; } "Does not appear to be a unified-diff format patch\n"); $a = 'O' if ($elements[$n] eq ''); $fixedline =~ s/^(.\s*)\{\s*/$1\t/; "$realfile is marked as 'obsolete' in the MAINTAINERS hierarchy. | \xF4[\x80-\x8F][\x80-\xBF]{2} # plane 16 $fixed[$fixlinenr] = $fixed_line; } __rcu| my ($linenr, $line) = @_; } defined $lines[$ctx_ln - 1]) # suppression flags + perf_pmu_update_alias(a, newalias); $herevet) && } WARN("MISSING_EOF_NEWLINE", $fixed[$fixlinenr] =~ s/\Q$oval\E/$octal/; my $ctx_cnt = $realcnt - $#ctx - 1; $declare . } } => \$fix, $context_function = $1; } # ignore udelay's < 10, however $herecurr) && { if (WARN("ALLOC_WITH_MULTIPLY", )}; my $specifier; #print "line prevline indent sindent check continuation s cond_lines stat_real stat\n"; my $ln = $linenr; # number of false positives, but assembly files are not checked, so at if (ERROR("SPACING", $herecurr); WARN("UNDOCUMENTED_DT_STRING", # Should not end with a space. } +} WARN("UNDOCUMENTED_DT_STRING", my $constant_func = $1; $fix) { $camelcase{$word} = 1; $herecurr); } $herecurr) && } elsif ($cur =~ /^(\#\s*(? } } if ($realfile =~ m@^(? # } my ($type, $msg) = @_; :\s+|\s*\*\s*)$Ident\s*[=,;\[]/ || my $semis = $3; sub deparenthesize { if ($first) { } while ($fixed[$fixlinenr] =~ } for (my $n = 0; $n < $cnt; $n++) { if (($prevline =~ /^.\s*#\s*define\s/ || $var2 =~ s/\s//g; "trailing statements should be on next line\n" . } # (char*[ const]) "Avoid multiple line dereference - prefer '$ref'\n" . $line =~ /^\+\s*DECLARE/ || "spaces prohibited around that '$op' $at\n" . my $camelcase_cache = ""; "Block comments use a trailing */ on a separate line\n" . $stat_real); } elsif ($dstat =~ /^\+\s*#\s*define\s+$Ident. +} sub get_stat_real { $res =~ s@\@@; $level++; $address = $1; my $func = $1; ## # check for multiple declarations, allowing for a function declaration :\#\s*$Ident|\#\s*$Constant)\s*$/ && # stringification #foo WARN("BRACES", $indent != $cindent) { ($clean == 1 && $quiet == 1)) { } elsif ($cur =~/^(;|{|})/) { $commit_log_has_diff = 1; $color = !$color; my $l = ''; } $hereprev) && $newstore = "${var}_store" if ($store ne "NULL" && $store ne "${var}_store"); my $av_pend_colon; --debug KEY=[0|1] turn on/off debugging of KEY, where KEY is one of if (CHK("PREFER_KERNEL_TYPES", ctx_statement_block($linenr, $realcnt, 0) $herecurr); It automatically creates a new string without trailing whitespaces. print "SIZEOF($1)\n" if ($dbg_values > 1); if ($prevline=~/}\s*$/ and $line=~/^.\s*while\s*/ && WARN("SPDX_LICENSE_TAG", my $trail = $5; # 1. with a type on the left -- int [] a; } $herecurr); my ($suspect, $fix) = split(/->/, $line); $line_fixed = 1; $define_stmt = $l; __ref| return 0 if (!$tree || ! "\"(foo$from)\" should be \"(foo$to)\"\n" . "while should follow close brace '}'\n" . my $prefix = $absolute; } # Strip the diff line prefixes and rip blank lines at start and end. $linenr = 0; :\\)?$/ && } elsif ($op eq '!' my $sha1 = $1; 'fix-inplace!' # but not "if (foo->bar) (" to avoid some false positives } :$Compare|$Assignment|$Operators)\s*$/ || # sufficient context to determine whether it is indeed long enough. my $stmt_cnt = statement_rawlines($ctx); my $condition = substr($blk, $soff, $coff - $soff + 1); if ($sline =~ /^.\s+bool\s*$Ident\s*:\s*\d+\s*;/) { my @tree_check = ( my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off); $herecurr) && $line =~ /(?:$Declare|$DeclareMisordered)\s*$Ident\s*$balanced_parens\s*(? $orig_commit = lc($2); my $name = $1; *$//s; )\b(min|max)\s*\(\s*$FuncArg\s*,\s*$FuncArg\s*\)/) { (? + */ } if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) { S_IWOTH | :[\&\*]\s*)?$Lval)\s*($balanced_parens{0,1})\s*}; $var =~ /[A-Z][a-z]|[a-z][A-Z]/ && } else { qr{short\s+(? $signoff++; asm|__asm__| $typeOtherTypedefs if ($typeOtherTypedefs ne ""); [PATCH 2/3 v2] perf alias: Rebuild alias expression string to make it comparable, 0 siblings, 4 replies; 8+ messages in thread, [PATCH 1/3 v2] perf alias: Remove trailing newline when reading sysfs files, [PATCH 3/3 v2] perf stat: Remove duplicate event counting, 3 siblings, 2 replies; 8+ messages in thread, 3 siblings, 1 reply; 8+ messages in thread, 3 siblings, 0 replies; 8+ messages in thread, 1 sibling, 0 replies; 8+ messages in thread, https://git.kernel.org/tip/ea23ac73085743a4f1682d6605fe019577c82e1e, http://lkml.kernel.org/r/20180615101105.47047-1-tmricht@linux.ibm.com, https://git.kernel.org/tip/0c24d6fb7bd3578e5b9e4972d01bbe3d087ded33, http://lkml.kernel.org/r/20180615101105.47047-2-tmricht@linux.ibm.com, 0 siblings, 0 replies; 8+ messages in thread, https://git.kernel.org/tip/6dde6429c5ff5b38d6d40a14a6ee105117e6364d, http://lkml.kernel.org/r/20180615101105.47047-3-tmricht@linux.ibm.com. $last_mod_date = $date if ($last_mod_date < $date); our $NON_ASCII_UTF8 = qr{ $hereptr)) { if ($realfile =~ /\.c$/ && defined $stat && } $previndent == $indent) { $stat =~ /^\+[$;\s]*(? $realfile !~ m@^drivers/base/core@) { LINE => $line, open($FILE, '-|', "diff -u /dev/null $filename") || Is it possible to do homology inference across species using different kinds of NGS data? $in_commit_log = 0; # and end, all to $;. } mb__before_atomic| + char **new_str) ($line=~/^.\s+default:/)) { GPL\ v2| fix_delete_line($fixlinenr, $rawline); my @fixed = (); my $ctx_ln = $linenr; "char * array declaration might be better as static const\n" . my $mods = "(?x: \n" . } ($statement, $condition, $linenr, $remain, $off, $level) = *\)\s*$/) { if ($declare !~ /\*$/ && $post_declare_space =~ /^$/) { } $s =~ /^\s*$Ident\s*:/) { if ($line =~ /\bcommit\s+[0-9a-f]{5,}\s+\("([^"]+)"\)/i) { ($realfile =~ /\. "quoted string split across lines\n" . $line =~ /#\s*define\s+\w+\s+\(?\s*1\s*([ulUL]*)\s*\ || defined CONFIG__MODULE { my $prevline = $linenr; "Prefer kernel type '$kernel_type' over '$type'\n" . qr{(?:(? [A-Za-z_][A-Za-z\d_]* #print "C: push\n"; # requires at least perl version v5.10.0 ERROR("MULTISTATEMENT_MACRO_USE_DO_WHILE", if ($line =~ m@\bsizeof\s*\(\s*($Lval)\s*\)@) { (-f $file)); return ""; :un)?signed\s+int}, { $bad_specifier = $specifier; # check of hardware specific defines return trim($string) if ($string =~ /^\s*0[0-7]{3,3}\s*$/); "Block comments use * on subsequent lines\n" . *)$/) { $fixed[$fixlinenr] =~ s@\/\/(. # p = alloc(sizeof(struct foo), ) should be p = alloc(sizeof(*p), ) $last_openparen = $pos; :un)?signed\s+long}, $sline !~ /\#\s*define\b. if ($lines[$linenr - 1] =~ /^\+(\t+)$func\s*\(\s*$tested\s*\)\s*;\s*$/) { $fix) { \s*0[xX][0-9]+\s* 'values', 'possible', 'type', and 'attr' (default my $s = $1; } "S_IRWXO" => 0007, } ($delay < 10) ) { "S_IRUGO" => 0444, To remove one or more trailing whitespace characters from your string use the string.rstrip() method without arguments. fix_insert_line($fixlinenr, $fixedline); $allowed[$allow] = 0; } $fix_elements[$n + 2] =~ s/^\s+//; # check usleep_range arguments } *\.compatible\s*=\s*\"/))) { $herecurr) && } 'codespellfile=s' => \$codespellfile, $line !~ /\btypedef\s+$Type\s+$Ident\s*\(/ && # Check that the storage class is at the beginning of a declaration (? } } if ($realcnt > 1) { $suffix .= 'LL'; } "Non-standard signature: $sign_off\n" . $ctx_ln++; my $octal = perms_to_octal($oval); "usleep_range is preferred over udelay; see Documentation/timers/timers-howto.txt\n" . $stat !~ /^\+/ && $stat_real !~ /^\+/) { my $has_statement = 0; if ($line =~ /^\s*signed-off-by:/i) { if (! "$herectx"); "#define of '$1' is wrong - use Kconfig variables or standard guards instead\n" . "Concatenated strings should use spaces between elements\n" . } } $specifier = $1; "TEST: is type\n" . Wrote EXPERIMENTAL --fix correction(s) to '$newfile' } WARN("MSLEEP", ## "Using comparison to $otype is error prone. } } To remove multiple trailing newlines, pipe through: There is also direct support for white space removal in Bash variable substitution: If you want to print output of anything in Bash without end of line, you echo it with the -n switch. unlink glob ".checkpatch-camelcase. -f, --file treat FILE as regular source file return substr($rawline, $-[0], $+[0] - $-[0]); # lines with a single string } our $cnt_warn++; my $git_range; } } !($line=~/^. --root=PATH PATH to the kernel tree root + *new_str = NULL; sub which { if (CHK("PARENTHESIS_ALIGNMENT", $fixed[$fixlinenr] =~ + zfree(&newalias->name); His passions are writing, reading, and coding. If so, there's probably no need to my $is_patch = 0; our $c90_Keywords = qr{do|for|while|if|else|return|goto|continue|switch|default|case|break}x; $name =~ /^${Ident}_$2/) { + } if ($do_fix) { } elsif ($level eq 'WARNING') { if (ERROR("SPACING", $git_range = "-1 $commit_expr"; # edge is a close comment then we must be in a comment "malformed #include filename\n" . # check for memset(foo, 0xFF, ETH_ALEN) that could be eth_broadcast_addr if (length($c) && $s !~ /^\s*{?\s*\\*\s*$/ && "Reusing the krealloc arg is almost always a bug\n" . + if (*new_str) { /* Have new string, check with old */ But what if you dont want to remove only a single trailing newline character '\n' but multiple ones (e.g., '\n\n\n')? } } $herecurr); How can this box appear to occupy no space at all when measured from the outside? exit($exit); $check = 0; ____cacheline_aligned| my $fixlinenr = -1; To subscribe to this RSS feed, copy and paste this URL into your RSS reader. $fixed_line = $fixed_line . if ($in_commit_log && $line =~ /^\s*change-id:/i) { } # EXPORT_SYMBOL(something_foo); # We are truly at the end, so shuffle to the next line. } if (!$reported_maintainer_file && !$in_commit_log && $line !~ /:\s+\)/) { ERROR("WEAK_DECLARATION", $realfile !~ m@/barrier\.h$@ && WARN("VOLATILE", if ($file) { while ($line =~ m{\b($multi_mode_perms_string_search)\b}g) { "$here\n$ctx\n$rawlines[$ctx_ln - 1]\n");

Loretta Devine Awards, Articles B